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If you didn't notice last month, there are new numbers to 
go with all these changes. They are listed at the end of the 
Customer Service article. JQ 



UTILITIES 

Well, here It is Utilities time again. My how the months 
speed by. At this time last year the Model 12 was the big 
news. There's been a lot of water (or new products) under the 
bridge since then. In fact we have introduced so much that's 
new this year we were concerned about neglecting some of 
the interesting and useful programs you've sent to us. I think 
this issue will alleviate some of the guilt. 

You'll find a lot of information packed in these few pages. 
Reader submitted programs contain several useful ideas. 
There's a slightly different backup scheme from Computer 
Customer Services, including procedures for equipment that 
wasn't even available this time last year. Backups— or the 
lack thereof— is the sort of stuff that nightmares are made of, 
so anything that will encourage you to develop and sustain a 
reliable system of backups is all to the good. 

13 GHOSTS AND ORCHESTRA 90 

One look at the graphics for this game should tell you that 
"13 Ghosts" is a game you'll want to see even if you don't 
own a Model III or 4. Though the art work provided is great, 
you still can't imagine how impressive the animation is when 
seen in action. "13 Ghosts" is lively, full of visual impact and 
sound. 

Bryan also provides us with "... a way to load, compile 
and play more than a few files with one command" in his 
Musical Notes column this month. 

COMPUTER CUSTOMER SERVICE REORGANIZATION 
CORRECTION 

In December we informed you of changes being made 
in the organization of Computer Customer Services. There 
are corrections that need to be made in the descriptions of 
Group Number 1 and Group Number 2. 

Group Number 1 will cover those Operating Systems, 
Languages, and Compilers used by Models I, II, III, 4, 12. 
16, and 16B. Group Number 2 will support Operating Sys- 
tems, Languages, and Compilers for the Color Computer, 
Pocket Computers, and our popular Model 100. 



MAGAZINES 



Below are nine magazines of special interest to TRS-80 
owners that we believe have editorial content of high quality 
and will be of use to our customers. 

Basic Computing— The TRS-80 

User Journal 

3838 South Warner Street 

Tacoma, WA 98409 

(206)475-2219 

Color Computer Magazine 
Highland Hill 
Camden, ME 04843 
(207)236-9621 

Color Micro Journal 
5900 Cassandra Smith Road 
Hixson. TN 37343 
(615) 842-4600 

80 Micro 
P.O. Box 981 
Farmingdale, NY 11737 

Hot CoCo 
P.O. Box 975 
Farmingdale, NY 11737 

Portable 100— The Magazine for 

Model 100 Users 
P.O. Box 468 
Hasbrouck Heights, NJ 07604 

PCM— The Portable Computing Magazine 

9529 U.S. Highway 42 

P.O. Box 209 

Prospect, KY 40059 

Rainbow (Covers the TRS-80 Color Computer) 

P.O. Box 209 

Prospect KY 40059 

(502)228-4492 

two/sixteen magazine 

P.O. Box 1216 

Lancaster, PA 1 7603 

(717)397-3364 J3 



Cover art "The Utilities Factory" by Bill Semand, artist, 
Radio Shack Advertising Department. 
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TRS-80 Microcomputer News is published monthly 
by Radio Shack, a division of Tandy Corporation, One Tandy 
Center, Fort Worth, Texas USA 76102 Copyright 1984 by 
Tandy Corporation. One Tandy Center, Fort Worth, Texas 
US A 76102 All rights reserved 

Reproduction or use, without express written permission 
from Tandy Corporation, of any portion of the Microcomputer 
News is prohibited. Permission is specifically granted to individ- 
uals to use or reproduce material for their personal, non- 
Dommercial use Reprint permission for all material (other than 
Ivan Sygoda's Profile article), with notice of source, is also 
specifically granted to non-profit clubs, organizations, educa- 
tional institutions, and newsletters. 

TRS-80 Microcomputer News is published monthly by 
Radio Shack, a division of Tandy Corporation A single six 
month subscription is available free to purchasers of new full 
size TRS-80 Microcomputer systems with addresses in the 
United States, Puerto Rico. Canada and APO or FPO ad- 
dresses Certain smaller TRS-80 Microcomputers will not in- 
clude this free subscription Subscriptions to other addresses 
are not available 

The subscription rate for renewals and other interested 
persons with U.S.. APO or FPO addresses is twelve dollars 
($12.00) per year, check or money order Single copies of the 
Microcomputer News may be purchased from Radio Shack 
Computer Centers or Computer Departments for $1 50 sug- 
gested retail each. 

The subscription rate for renewals and other interested 
persons with Canadian addresses is Fifteen dollars ($1 5.00) per 
year, check or money order in U.S. funds. All correspondence 
related to subscriptions should be sent to Microcomputer 
News, P.O. Box 2910. Fort Worth. Texas 761 13-2910. 

Retail Prices in this newsletter may vary at individual stores 
and dealers. The company cannot be liable for pictorial and 
typographical inaccuracies 

Back issues of Microcomputer News prior to January. 1981 
are available through your local Radio Shack store as stock 
number 26-2115 (Suggested Retail Price $4 95 for the set). 
Back issues of 1981 copies are available as stock number 26- 
2240 (Suggested Retail Price $9 95 for the set) The 1982 back 
issues copies are available as stock number 26-2241 (Sug- 
gested Retail Price $12.95 for the set) 

The TRS-80 Newsletter welcomes the receipt of computer 
programs, or other material which you would like to make availa- 
ble to users of TRS-80 Microcomputer systems In order for us to 
reprint your submission, you must specifically request that your 
material be considered for reprinting in the newsletter and pro- 
vide no notice that you retain copyrights or other exclusive rights 
in the material This assures that our readers may be permitted 
to recopy and use your material without creating any legal 
hassles. 

Material for publication should be submitted on magnetic 
media (tape, disk, or CompuServe) If you submit material on 
tape or disk, and it is accepted for publication, we will send you 
two cassettes or diskettes for each one you sent us Cassettes 
will come from our box of mixed blank cassettes. If you submit 
material on CompuServe, and we think we may use the mate- 
rial, we will extend your Microcomputer News subscription by 
six months for each article accepted. If you are submitting 
material over CompuServe, please include your name and ad- 
dress or your subscription number so we can find you. I* the 
material is very short, send it to us in E-Mail. If you have more 
than a few lines, you need to place the material m the ACCESS 
area of CompuServe and then let us know it is there by leaving a 
message on E-Mail. 

Material may be submitted by mail to P.O Box 2910, Fort 
Worth. Texas 76113-2910, or through CompuServe The 
Microcomputer News' CompuServe user ID number is 
70007,535. 

Programs published in the Microcomputer News are pro- 
vided as is. for your information While we make reasonable 
efforts to ensure that the programs we publish here work as 
specified, Radio Shack can not assume any liability for the 
accuracy either of the programs themselves or of the results 
provided by the programs. 

Further, while Microcomputer News is a product of Radio 
Shack, the programs and much of the information published 
here are not Radio Shack products, and as such can not be 
supported by our Computer Customer Service group. If you 
have questions about a program in the Microcomputer News, 
your first option is to write directly to the author of the program. 
When possible, we are now including author's addresses to 
facilitate communications. If the address is not published, or if 
you are not happy with the response you get, please write us 
here at Microcomputer News. We will try (given the limited size 
of our staff) to find an answer to your question and, in many 
cases, will publish the answer in an up-coming issue of Micro- 
computer News 
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Backup-Our Favorite Utility 



There have been countless computer users who have 
had the misfortune of having their computer system "crash" 
and have had to start over with their accounting systems, 
rewrite numerous letters for their word processors, or reenter 
massive amounts of data into data base management sys- 
tems. Most of these situations would not have occurred if the 
user had only taken advantage of the "BACKUP" or "SAVE" 
function of their system. In the past three years, there have 
been two very good articles on backup in the TRS-80 Micro- 
computer News, July 1981 page 22, and February 1983 
page 9. However, since that time we have added new com- 
puter systems and storage peripherals, and the backup re- 
quirements have changed. 

WHEN TO MAKE BACKUPS 

How many backups should you have and how often 
should you make a backup? A good rule of thumb is to make 
a backup anytime the information you have stored would 
take longer to reconstruct or reenter than it would to make a 
backup. There will be times, of course, when you write a short 
note or memo, and you won't want to make a backup imme- 
diately. It would be faster to rewrite the memo if the informa- 
tion were lost. If you have spent thirty minutes carefully 
wording a memo, it might be worth the time to make a backup 
copy or at least copy the document to another disk if you do 
not wish to make a full backup. 

This brings up another point about operating systems 
and the backup utility. Older, less sophisticated systems re- 
quired the user to make complete disk backups or what is 
called "mirror image" backups. Many of our newer operating 
systems now have options to only make backups of those 
files, or only those files that have been modified within a range 
of dates. These options make backing up important informa- 
tion much faster, but the user must be organized well enough 
to know where to find the most current backup in case 
disaster should strike. A simple backup schedule can keep 
even the novice computer user well organized. 

A SIMPLE BACKUP SCHEDULE 

One of the simplest backup schedules is to make a set of 
disks, one for each day of the week. On Monday use the disk 
marked "Monday," and at the end of the day simply make a 
backup onto the disk marked "Tuesday." If a problem is 
encountered while using the "Tuesday" disk, another copy 
can be made from the "Monday" disk. Assuming that Tues- 
day's work goes without a hitch, make a backup at the end of 
the day onto the disk labelled "Wednesday." Follow the same 
procedure throughout the week. On Friday, make a weekly 
set of backups on a set of disks labelled "Week 1 " and put 
them aside in a safe storage place. (Hopefully, they will never 
be needed.) Also make a backup of Friday's work onto the 
disk labelled "Monday" and you are ready to start the next 
week's work. On Friday of the second week, make a second 



set of weekly backups on a set of disks marked "Week 2," 
and also make a backup onto the disk marked "Monday," 
and you are ready to start work the following week. Follow the 
same procedure throughout the month, making a weekly set 
of backups. At the end of the month you will have a set of five 
daily disks, and a weekly set for each week of the month. 
Additional backups should be made at the end of the month, 
once before doing any "end of month processing" and an- 
other set after end of month processing. Keep both of these 
sets in the event a problem is encountered during end of 
month processing the following month, and an unprocessed 
set of data is required to reconstruct a good working set of 
data files. Repeat the cycle the following month, adding 
another set of backups of your data before you do "end of 
month processing." With all of the previous sets of backups, 
we have backed up over the set of disks with the same label 
from the previous month. This is the one exception. If you 
backed up the second month's pre end of month processing 
data over the first month's data, you would be destroying the 
previous month's unprocessed data. Each month you will 
follow these same procedures. At the end of the year you 
should also make two sets of backups— one before "end of 
year" processing and one after the end of year processing 
has been completed. 

WHAT TO DO WHEN DISASTER STRIKES 

One of Murphy's Laws of Computers certainly must be 
"computers will fail at the most inopportune time," translated 
to mean that right in the middle of a statement run your 
computer returns an error, and no amount of coaxing will get 
the computer to complete the statements. Many computer 
operators will blithely insert the backup copy of their data and 
try the operation again. Is there anything wrong with this 
procedure? After all, why have we been making all of these 
backup copies? NEVER use the previous day's backup to 
complete your processing!! Always make another backup 
copy first. This will keep your original copy intact. It will also 
help detect a possible hardware problem. If your computer 
system will not produce a backup for you, there is a high 
degree of probability that you have some type of hardware 
problem, even if it is as simple as dirty disk drive heads. 

BUT I HAVE A HARD DRIVE 

Many computer users feel that because of the reliability 
of hard disk drives they no longer need to make as many 
backups or "saves" as they are referred to with hard drives. 
This is simply not true. Good data processing procedure 
dictates that a rigid and complete schedule of "saves" be 
followed no matter what type of storage device is used. 
Backups become even more important when using a hard 
drive because of the potential to lose much larger quantities 
of data. The "SAVE" utility allows the user to make backups of 
only those files that have been modified during the most 
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recent processing, within a range of dates or a specified list of 
data files. Caution should be taken when using a backup 
scheme that only includes parts of the total data files. 

TRS-XENIX SAVES 

Do the same rules apply to TRS-Xenix user? Yes. The 
Xenix operating system, however, gives the user at least three 
options to use when making saves of their systems— Xenix 
Save, the Tsh Save, and the Sysadmin Save. However, be- 
cause of the inability to do a restore after doing a Sysadmin 
Save, we recommend the use of either the Xenix Save or the 
Tsh Save because both of these options will allow you to 
restore your data. 

CONCLUSION 

We hope that the backup schedule presented here will 
help you in your computer operations. We've tried to make it 
as simple as possible We realize that occasionally your com- 
puter may fail and destroy important data We hope that you 
will be properly protected by using the backup schedule we 
have presented. 




Computer Customer Service 
Address and Phone Numbers 

8AM to 5PM Central Time 

Computer Customer Services 

400 Atrium, One Tandy Center 

Fort Worth. Texas 76102 



Productivity/Special Applications 

Accounting Software 

O/S and Languages. Group No. 1 

O/S and Languages. Group No. 2 

Hardware and Communications 

Home Software 

Educational Software 

Newsletter Subscription Problems 



(817)338-2390 
(817)338-2391 
(817)338-2392 
(817)338-2393 
(817)338-2394 
(817)338-2395 
(817)338-2396 
(817)870-0407 



NOTES PREVIOUS 



JUNE 1982 

Machine Language Sort, Part II 

James E. Haher 
303 Chestnut Street 
Oneonta NY 13820 

William Barden's Machine Language program sorts 
from A to Z ( or from on to higher numbers). A very simple 
change permits it to sort from high to low which is useful for 
the printout of averages such as for bowling teams. 

At line 490 of his June 1982 program he uses BLS. 
branch if lower or same. I substituted BHS, branch if higher or 
same for reverse sort. 

BLS is Hex 23 while BHS is Hex 24 and POKES from the 
BASIC program permits options to sort from low to high or 
high to low. 

You're probably way ahead of me on this, but I thought 
I'd pass on my thought. I have a feeling many more CC 
owners have use for Bill Barden's sort. It is excellent. 



AUGUST 1983 
The New PC-3! 

Bill Wrigley 

4931 Rebel Trail, NW. 

Atlanta GA 30327 

I would like to call your attention to several errors or 
omissions in the August 1983 issue of TRS-80 Microcom- 
puter news article on "The New PC-3!". 

1 ) The Verbs and Commands tabulation on pages 7 and 
8 includes MERGE for the PC-1 which is not available 
on the PC-1. 

2) PEEK and POKE are absent from this tabulation but 
are accepted by both the PC-3 and the PC-2. 

3) The RND Numeric Function as shown on page 8 is not 
available in the PC-1. 

Incidentally, items 1) and 2) above also appear in error in 
the appendix included in the PC-3 Operating Manual. 

OCTOBER 1983 

Sieve of Eratosthenes 

Norman Eaddy 

10613 Montrose Ave. #201 

Bethesda MD 20814 

In the October 1983 TRS-80 Microcomputer News, Ken 
Weiss gave timings for the Sieve of Eratosthenes, originally 
published in April 1 983. With his enhancements the program 
requires over 4 minutes on a TRS-80 Model II to find all prime 
numbers from to 1 800. The following program requires only 
25 seconds on a Model I. 



10 


CLS 




: K0 - t 




: Kl - 1 




: K2 - 2 




: INPUT "PRIMES UP TO "; N 




: PRINT K2; 




: PM - INT((N - Kl)/K2) 




: DIM F(FM) 


2^ 


FOR F - Kl TO (INT(SQR(N)) - K1)K2 


30 


IF F(F) - K0 THEN K - F * K2 ♦ Kl 




: PRINT K; 




: FOR I - INT(K * K/K2) TO FM STEP 




: F(I) - Kl 




: NEXT I 


40 


NEXT F 


50 


FOR F - F TO FM 




: IF F(F) - K0 THEN PRINT F * K2 ♦ 


60 


NEXT F 


n 


END 



Kl; 



This program uses Ken's enhancement and two others. 
Only odd numbers are processed (except 2); and when 
multiples of a prime are being crossed out, the first multiple 
crossed out is the square of the prime (all smaller multiples will 
have been already crossed out). 

NOVEMBER 1983 

PC-2 Diagnostic Tests Revisited 

The 16K System ROM Check program for the PC-2 
(November 1983, page 20) frequently returns an error mes- 
sage. There have been several versions of the PC-2 ROM, 
each with a different checksum. Therefore if you do not have 
the one version of the ROM with a checksum of 2011609, you 
will get a CHECKSUM BAD message when you run the 
program. We were unaware of the different checksums at the 
time the program was published and apologize for any incon- 
venience that you may have experienced. ^* 
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FORTRAN Input 



Chip Kraft 

5 East Broadway 

P.O. Box 293 

Union Bridge, MD 21791 



INTRODUCTION 

I am a Civil Engineer and extens.vely use FORTRAN in 
my work. I applaud Radio Shack's choice of Microsoft 
FORTRAN. I have used Microsoft FORTRAN on several other 
computers as well as on my TRS-80. 

Unfortunately, Microsoft FORTRAN lacks one important 
capability: 'nteractive. unformatted keyboard input. In 
BASIC, the INPUT statement provides this capability. One 
can enter a series of numbers, separated only by blanks or 
commas, and BASIC will place the values into the correct 
var,ables. In Microsoft FORTRAN one must use formatted 
input which requires precise placement of data into the cor- 
rect columns. This is difficult to accomplish on a computer 
keyboard because it requires counting spaces. It is easy to 
lose count of the number of spaces and shift the data left or 
right. This may result m the wrong numbers being input by the 
computer. 

This weakness is common to all the versions of Microsoft 
FORTRAN I have seen. Until Microsoft does provide the 
capability in the language, however, the subroutines 
URREAD. UIREAD and U4READ can be used. 

This documentation is divided into two sections. The first 
section is practical user's documentation: it describes how to 
put URREAD, UIREAD and U4READ onto your computer 
system, how to structure subroutine calls from within a 
FORTRAN program, and how to access the routines using 
the linkage editor. The second section is for those who are 
interested in the details of how the program works. 

SECTION 1— USER'S DOCUMENTATION 

Subroutines UIREAD, U4READ and URREAD are 
placed into your computer by typing them into the editor and 
compiling them into /REL files. Then, they may be called by 
othe r FORTRAN programs when needed. 



00100 

00200 

00300 

00400 

00500 

00600 600 

00700 

00800 

00900 

01000 

01100 

01200 

01300 

01400 600 

01500 

01600 

01700 

01800 

01900 

02000 C 

02100 C 



02200 C 



SUBROUTINE U IREAD(NVAR, IARRAY) 

INTEGER IARRAY(NVAR) 

REAL ARRAY(15) 

CALL URREAD(NVAR, ARRAY) 

DO 600 J=l ,NVAR 

IARRAY(j)- ARRAY(J) 

RETURN 

END 

SUBROUTINE U4READ(NVAR, IARRAY) 

INTEGER*4 lARRAY(NVAR) 

REAL ARRAY (15) 

CALL URREAD(NVAR, ARRAY) 

DO 600 J- 1, NVAR 

IARRAY(J)- ARRAY(J) 

RETURN 

END 

SUBROUTINE URREAD( NVAR, ARRAY) 

BYTE IALPHA(80) 

REAL ARRAY(NVAR) 

URREAD READS INPUT AS 

ALPHANUMERIC CHARACTERS 

AND RETURNS A REAL ARRAY OF NVAR 

NUMBERS 



02300 

02400 

02500 

02600 

02700 

02800 

02900 

03000 

03100 

03200 700 

03300 

03400 

03500 

03600 

03700 

03800 

03900 

04000 201 

04100 C 

04200 



04300 
04400 
04500 
04600 
04700 
04800 
04900 
05000 
05100 
05200 
05300 
05400 
05500 
05600 

05700 
05800 
05900 
06000 
06100 



07000 
07100 
07200 
07300 
07400 
07500 
07600 
07700 
07800 
07900 



08100 
08200 
08300 
08400 
08500 

08600 
08700 
08800 
08900 
09000 
09100 



06200 C 

06300 C 

06400 C 

06500 C 

06600 C 

06700 C 

06800 C 
06900 



********************************* 
INITIALIZATION 

ISIGN- 1 
LAST- 
NUMBER- 1 
DO 700 J- 1, NVAR 
ARRAY(J)- 0. 

********************************* 

WRITE OUT "?" PROMPT ON SCREEN 

WRITE(1,201) 
FORMATC ? *) 

READ IN ARRAY OF 80 ALPHANUMERIC 
CHARACTERS 

READ( 1,100) IALPHA 
FORMAT (80A1) 

********************************* 

INITIALIZE SHIFT-0 - ASSUME LEFT 
OF DECIMAL POINT 

SHIFT- 0. 

DO 600 J- 1,80 

SUBTRACT 48 FROM THE ASCII CODE 

TO CONVERT 

TO THE ACTUAL DIGIT 

K- IALPHA(J)- 43 

IF THE VALUE IS ZERO THRU NINE, 

THEN THE 

CODE WAS A DIGIT. IF NOT, IT 

COULD BE A 

MINUS SIGN, A DECIMAL POINT, A 

SPACE OR 

AN ILLEGAL CHARACTER 

IF A DIGIT, GO TO 4, THE SECTION 

THAT BUILDS 

NUMBERS 

IF(K .GE. .AND. K . LE . 9) GO TO 

4 

********************************* 

TEST FOR MINUS SIGN 
45= ASCII CODE FOR - 

IF( IALPHA(J) .NE. 45) GO TO 2 
ISIGN- -1 
GO TO 600 

TEST FOR DECIMAL POINT 
46- ASCII CODE FOR . 

IF( IALPHA(J) .NE. 46) GO TO 6 

ADJUST SHIFT PARAMETER TO MEAN 

RIGHT 

SIDE OF DECIMAL POINT 

SHIFT- 10. 
.LAST- 1 
GO TO 600 
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********************************* 

NOW BUILD NUMBER 

IF(SHIFT .NE. 0. ) GO TO 5 

THIS NUMBER IS LEFT OF DEC PLACE 

ARRAY (NUMBER)- ARRAY(NUMBER)*10+K 
LAST* 1 
GO TO 600 

THIS NUMBER IS RIGHT OF DEC PLACE 

ARRAY (NUMBER)- ARRAY (NUMBER)+ 

K/SHIFT 

SHIFT- SHIFT*10. 

GO TO 600 

********************************* 

NO MATCH FOUND, NEW NUMBER 

IF( LAST .NE. 1) GO TO 7 

ARRAY (NUMBER)- ARRAY(NUMBER)* 

ISIGN 

ISIGN- 1 

NUMBER- NUMBER+1 

LAST- 

IF(NUMBER .GT. NVAR) RETURN 

SHIFT- 0. 

32 IS ASCII CODE FOR BLANK 
44 IS ASCII CODE FOR COMMA 

IF( IALPHA(J) .EQ. 32 .OR. 
IALPHA(J) 
* .EQ. 44) GO TO 600 

WRITE( 1,200) IALPHA(J) 

FORMATC UNKNOWN CHARACTER ',Al) 

CONTINUE 

IF(NUMBER .Gr. NVAR) RETURN 

IF NOT ENOUGH NUMBERS HAVE BEEN 

READ 

IN YET, GO TO I AND GET ANOTHER 

LINE 

OF INPUT FROM THE KEYBOARD 

GO TO 1 

END 



Calls to these subroutines have the following format: 

CALL UIREAD( NVAR, IARRAY) For regular integers 
CALL U4READ( NVAR, IARRAY) For INTEGER*4 

variables 
CALL URREAD( NVAR, ARRAY) For real variables 

where NVAR= the number of variables to be read, and 
ARRAY or IARRAY = an array of the variables to be read. 
Suppose one wishes to read four real variables A, X, Y, 
and Z. An appropriate FORTRAN statement would be: 

CALL URREAD(4,A,X,Y,Z) 

This type of input is used by the sample program 
TREAD. 



09200 


C 


09300 


C 


09400 


c 


09500 


c 


09600 


4 


09700 


C 


09800 


C 


09900 


C 


10000 




10100 




10200 




10300 


c 


10400 


C 


10500 


C 


10600 


5 


10700 




10800 




10900 


c 


11000 


c 


11100 


c 


11200 


c 


11300 


c 


11400 


6 


11500 




11600 




11700 




11800 




11900 




12000 


7 


12100 


C 


12200 


C 


12300 


c 


12400 


c 


12500 




12600 




12700 




12800 


200 


12900 


600 


13000 




13100 


C 


13200 


c 


13300 


c 


13400 


c 


13500 


c 


13600 




13700 





00500 
00600 
00700 
00800 
00900 
01000 
01100 



101 



WRITE( 1,100) 

FORMATC ENTER A, B, AND C') 

CALL URR£AD(3,A,B,C) 

WRITE( 1,101 ) A,B,C 

FORMAT(3F8.2) 

STOP 

END 



Arrays of variables can also be read by these 
subroutines: 

INT£GER*4 ICOUNT(10) 



CALL U4READ(10,ICOUNT) 

This type of input is used by the sample program 
TREAD1. 



00100 




PROGRAM TREAD 1 


00200 


C 




00300 


C 


DEMONSTRATES USE OF URREAD 
SUBROUTINE 


00400 


C 




00500 




REAL ARRAY(3) 


00600 




WRITE( 1,100) 


00700 


100 


FORMATC ENTER 3 VALUES OF 
ARRAY ' ) 


00800 




CALL URREAD(3,ARRAY) 


00900 




WRITE( 1,101) (ARRAY(J),J-1,3) 


01000 


101 


FORMAT(3F8.2) 


01100 




STOP 


01200 




END 



00200 C 
00300 C 

00400 C 



PROGRAM TREAD 

DEMONSTRATES USE OF URREAD 
SUBROUTINE 



URREAD can read in as many variables as desired. 
UIREAD and U4READ are limited to a maximum of 15 vari- 
ables on each call, due to the size of their internal dimension 
statements. It is extremely important to use the proper sub- 
routine depending on the type of variable to be read in since 
each variable type has a different internal representation. 
Variable types cannot be mixed in one statement; separate 
calls are required to each subroutine for each variable type. 
One alternative is to read everything in as real values using 
URREAD and then convert selectively those which are to be 
stored as integers, using replacement statements or the IFIX 
subroutine. 

When called, these routines return with a "?" prompt, 
indicating they are ready for data input. Then the routine 
requires NVAR separate keyboard inputs. These can be 
entered on the same line separated by commas or spaces, or 
entered on successive lines. The subroutines will continue 
asking for more data until the requirement for NVAR values 
has been satisfied. 

To access the subroutines, the module URREAD/REL 
must be searched by the linkage editor. This is accomplished 
by including the module's name in the command list when 
the FORTRAN program is being linked. For example, to link 
sample program TREAD: 

TRSDOS Ready 
L80 

♦TREAD, URREAD-S,FORLIB-S,TREAD-N-E 

The above sequence would load the main program, 
TREAD. Then the subroutine libraries URREAD and FORLIB 
would be searched for any subroutine references. Finally, 
TREAD/CMD would be saved on the disk. 
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SECTION 2— PROGRAMMING DOCUMENTATION 

The two subroutines UIREAD and U4READ both call 
URREAD to get keyboard input. Once the data has been 
read in and stored in as real numbers, UIREAD and U4READ 
convert these to the appropriate INTEGER and INTEGER* 4 
formats before returning to the calling program. The conver- 
sion is made by truncating the decimal portion. For example, 
5.3 rounds down to 5; and 5.9 also rounds down to 5. If you 
desire to round instead of truncate, lines 00600 and 01400 
can be modified as follows: 

00600 600 IARRAY(J)- ARRAY(J)* .5 

Subroutine URREAD performs the processing of key- 
board input. Rather than reading in data as numerical values, 
URREAD handles all keyboard input as alphanumeric char- 
acters and then converts to numbers as appropriate. 

To understand this process, one must first understand 
how FORTRAN stores and processes alphanumeric charac- 
ters. Keyboard characters cannot be stored directly in com- 
puter memory. Instead, the ASCII code for each character is 
stored. These are in fact integers which can be added, sub- 
tracted, multiplied or divided as any other numbers. 

The program ASCII demonstrates this. It creates an 
ASCII code table by printing out the contents of storage 
location I in both integer and alphanumeric format. To prove 
that I is considered an integer storage location by the com- 
puter, note that it is also a DO loop counter! 



00100 




PROGRAM ASCII 


00200 


C 




00300 


c 


GENERATES AN ASCII CODE TABLE 


00400 


c 




00500 




BYTE I 


00600 




WRITE(2, 100) 


00700 


100 


FORMAT (' ASCII CODE CHARACTER' 


00800 




DO 600 1-48,90 


00900 




WRITE(2,10D I, I 


01000 


101 


FORMAT(5X, I2,9X,Al) 


01100 


600 


CONTINUE 


01200 




STOP 


01300 




END 



In other words, there is nothing special about a variable 
or array containing alphanumeric information. The numbers 
in the array can be processed just like numbers from any 
other source. 

Now suppose an alphanumeric array containing the 
following three numbers, 12.35, -.7 and 8 were read in from 
the keyboard: 

1 2 . 3 5 - . 78 

When stored, the array would actually contain the follow- 
ing integers which are the ASCII codes for the above 
characters: 

49 50 46 51 53 32 45 46 55 32 56 

First, note that ASCII codes 48 through 57 correspond 
directly to the numbers through 9. By subtracting 48 from 
the ASCII code stored in the array, the actual numerical value 
of the digit is obtained in integer format. In URREAD, this 
converted value is stored in variable K. In addition, there are 
the special codes 32 = blank, 44 = comma, 46 = decimal 
point and 45 = minus sign which must receive special han- 
dling. Any other codes are illegal and are flagged. 

The numbers are built a digit at a time. SHIFT is initially 
set equal to zero for each number, indicating that the number 
is left of the decimal point. When a decimal point is encoun- 



tered, SHIFT is set equal to 10., and a different shifting 
scheme is employed. The following example demonstrates 
how the procedure works: 

Step 1: J = 1 SHIFT = 0. 

ASCII code= 49 

K= 1 = 49-48 

Use shifting procedure of line 10000 

Build ARRAY(1)= 1 = 0x10+ 1 

Step 2: J = 2 SHIFT = 0. 

ASCII code= 50 

K= 2 = 50-48 

Use shifting procedure of line 10000 

Build ARRAY(1)= 12= 1x10+ 2 

Step 3: J = 3 

ASCII code= 46 

Recognize special code for decimal point 

set SHIFT = 10. 

Step 4: J =4 SHIFT =10. 

ASCII code= 51 

K= 3= 51-48 

Use shifting procedure of line 10600 

Build ARRAY(1)= 12.3= 12+ 3/10 

Multiply SHIFT by 10 : SHIFT = 100. 

Step 5: J = 5SHIFT = 100. 

ASCII code= 53 

K= 5= 53-48 

Use shifting procedure of line 10600 

Build ARRAY(1)= 12.34= 12.3+ 4/100 

Multiply SHIFT by 10 : SHIFT = 1000. 

Step 6: J =6 SHIFT =1000. 

ASCII code= 32 

Recognize blank- finish number, get set 

for next number by incrementing NUMBER = 2, and 

resetting ISIGN, LAST and SHIFT. 



ASCII CODE 


CHARACTER 


ASCII CODE 


CHARACTER 


48 





70 


F 


49 


1 


71 


G 


50 


2 


72 


H 


51 


3 


73 


I 


52 


4 


74 


J 


53 


5 


75 


K 


54 


6 


76 


L 


55 


7 


77 


M 


56 


8 


78 


N 


57 


9 


79 





58 




80 


P 


59 


; 


81 


Q 


60 


< 


82 


R 


61 


- 


83 


s 


62 


> 


84 


T 


63 


7 


85 


U 


64 


e 


86 


V 


65 


A 


8 7 


w 


66 


B 


88 


X 


67 


C 


89 


Y 


68 


D 


90 


Z 


69 


E 
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Profile 



Introducing Multi-User Profile 



The Small Computer Company 

P.O. Box 2910 

Fort Worth, TX 76113-2910 

By Ivan Sygoda, Director, Pentacle 

Copyright 1984, Ivan Sygoda. All rights reserved. 



It all happened at once. Thanks to a generous grant from 
the Robert Sterling Clark Foundation, Pentacle was able to 
upgrade its computer installation ahead of schedule. Our 
two-drive Model 12 was transformed, like Cinderella, into a 
51 2K Model 16B with a 12MB hard disk and a DT-1 data 
terminal. To boot (ha!), we also acquired the TRS-XENIX 
operating system and Multi-User Profile (26-6412, $499). 

THE ONLY THING WE HAVE TO FEAR 

Since I'm the official Pentacle computer nut, it was my 
job to get all this up and running as efficiently as possible. The 
hardware installation was done on a Friday. The Radio Shack 
service technician left me with a formatted hard disk, a pile 
of manuals and best wishes for a pleasant weekend. (It's 
the user's job to install TRS-XENIX and the applications 
programs.) 

Was I nervous? Keyed-up is closer to the mark — like a 
runner before a big race. Here I was with computing power at 
my fingertips that would have cost a million dollars a decade 
ago, if it could be had at all. The pile of manuals began to look 
awesome. 



garage door 



plywood back 



5 /ie" clamshell 
molding 




casters 



Figure 1 : The Pentacle rolling computer manual cart 



MANUAL LABOR 

What did I do? I didn't go into the office at all on Saturday. 
Instead, I stayed home and built a rolling cart that could hold 
the manuals and be wheeled between terminals. It was great 
therapy, only taking a few hours and about $50 worth of 
lumber and hardware, and it's come in very handy. Similar 



carts from commercial office furniture houses begin at $200. 
(See figure 1 .) 

Sunday, then, was installation day. It turned out that I 
made a mountain out of a molehill. Installing TRS-XENIX was 
a breeze, and it took exactly one hour. All I had to do was to 
follow the instructions in the Operations Guide that came with 
the operating system. Connecting our DT- 1 data terminal and 
setting passwords were equally thrilling operations for being 
uneventful. By mid-afternoon, I was ready to install Multi-User 
Profile. 

WHERE TO BEGIN? 

There's so much to say about Multi-User Profile that I 
don't know where to begin. "Begin at the beginning," says a 
little voice, and so I shall. Multi-User Profile is a data base 
management system for the Radio Shack Model 16 series 
computers (including upgraded Model 12s), which use the 
TRS-XENIX operating system. It takes the user-proven con- 
cepts and the modular design so successful in Profile Plus 
and Profile III Plus, and extends them (with enhance- 
ments that would take a book to describe) to a multi-user 
environment. 

I could go on for months (and probably will) about its 
ease of use, its extraordinary power and flexibility, and its 
clever design. Multi-User Profile can extend, in myriad ways. 
your ability to understand and control the data with which you 
work. It's both simple and complex, like a superb stereo 
system that one can either turn on and listen to or fine-tune to 

hairline tolerances. 

Just look at these "specs " : Your data base can hold up to 
16,000,000 records per file, spread over four floppy or hard 
disk drives. Each record can contain as many as 4,608 
characters in up to 999 fields. The key segment can contain 
up to 51 2 of these characters. The optional data segment can 
contain up to 4,096 characters. A key field can be up to 512 
bytes long. A data field can contain as many as 999 charac- 
ters — over 12 lines of text! Any field can be accessed in 
sorting and selecting records, though it's more efficient to 
group frequently-used fields in the key segment. Field head- 
ings can be as long as 30 characters. 

HIGHER MATHEMATICS 

Profile Plus and Profile III Plus users have powerful math 
capabilities that enable them to add, subtract, multiply and 
divide the contents of fields. Multi-User Profile offers process- 
ing power a quantum leap above that. Not only can you 
perform the usual mathematical operations, you can perform 
them conditionally : that is, if some user-defined criteria are 
met. All the Boolean relationships are available to define 
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these criteria (equals, does not equal, is greater than, etc.). 
This means, for instance, that you can have a sliding scale of 
discount or commission rates. Multi-User Profile will automati- 
cally consult the relevant totals and then perform the appro- 
priate math. As if that weren't enough, Profile can also 
perform these operations on text strings! Here's a simple 
example: Profile can be instructed to read the two-character 
state code field and then multiply an amount by the correct 
sales tax. 

NO STRINGS ATTACHED 

Profile's ability to process character strings offers limit- 
less opportunities for automating and manipulating text en- 
tries. Here's a random sampling of possibilities: You can 
automatically add commas after salutations; you can strip 
trailing blanks from field entries and concatenate them, with 
or without intervening punctuation: you can do global edits, 
such as changing every "Mrs.'' to "Ms."; you can automate 
the filling in of code fields by instructing the program to search 

other text or number fields for specified words, amounts or 
ranges. 

An easy-to-use system of supplied and user-defined ed- 
its lets you format entries automatically. For example, keying 
in "81 73903935" gives you "(81 7) 390-3935." You can also 
limit entries to pre-defined choices — "Y" or "N" for yes/no; 
"M" or "F" for sex, etc. You can move data between fields, 
from "bill to" to "ship to" if the latter field is empty, for instance. 
You can perform math on date fields and also do periodic or 
"batch" processing. 

GOOD RELATIONS 

One of the most powerful attributes of Multi-User Profile 
is its ability to perform "lookups." This means you can access, 
or look up, fields in up to ten other data bases at the same 
time. One obvious use of this would be to keep addresses in a 
mailing list data base or a contributions tracking file or what- 
ever. Why store such information in more than one place? 
Retrieving information in this way lets you transfer it, change 
it, or simply use it in conditions for other processes. Thus. 
Multi-User Profile is a "relational" data base. 

TURNING THE TABLES 

Most of these various operations, which can be as so- 
phisticated as you want, are defined on processing tables 
according to your needs. There are three such tables: (1) an 
'automatic" processing table which performs desired opera- 
tions before each record is brought to the screen; (2) an 
"input" table that processes data as each new or revised 
record is recorded; and (3) an "output" table which is ac- 
cessed as each record is used to print a report, label or form. 

At first glance, these processing tables look a bit forbid- 
ding. Relax; it's not difficult to get the hang of them. First of all, 
you don't need to use them at all if your data base does not 
involve any math operations. If it does, or if you're transferring 
a data base involving addition, subtraction, multiplication 
and/or division from your original Model 11/ 1 2 system, all you 
have to do is copy your formulas from your original math 
table. There's nothing new to learn. It's only when and as you 
become familiar with Multi-User Profile, and as your needs as 
a user develop, that you will want to become familiar with the 
intricacies of the processing tables. 

Needless to say. I became instantly fascinated with the 
possibilities. Each of the three types of tables can be up to 



200 elements long. Filling them in is somewhat like writing a 
program in BASIC, but easier. There are only a few key words 
to learn and some syntax rules to follow. What you get for 
your efforts is total control over all input and manipulation of 
your data. The operator can be directed from screen to 
screen during data entry, prompted for this, prevented from 
doing that, spoon-fed the third. 

The screen creation program even lets you define the 
path the cursor will take during data entry and updating. In 
the coming months, we'll study the use of these processing 
tables in some detail. They constitute one of the keys to Multi- 
User Profile's great flexibility. They also enable you to make 
profoundly elegant data base operations. 

BACK TO SQUARE ONE 

But I'm getting ahead of myself. The first step is to get 
Profile itself up and running. Multi-User Profile comes as a set 
of eight inch floppy diskettes containing programs to be 
transferred to your hard disk under TRS-XENIX. The process 
is quite simple. Boot XENIX and log in as root or superuser. 
When the root prompt ("#") appears, type "install" and then 
(E NTER ;. The installation menu appears. Answer the 
prompts and change disks when asked to do so. The screen 
tells you when the process is complete, at which point you 
can either install another applications program or return to 
XENIX. That's all there is to it. 

If you want to create a data base, log off root by typing 
[CTRL ' J) and log in under your usual ID. It is not a good 
idea to create Profile data bases in superuser mode for a 
variety of reasons. 

Many users will move up to Multi-User Profile from Profile 
Plus installations. Existing data bases can be converted to 
Multi-User at any time after the installation process. Conver- 
sion is also done from root. Type "u" and (Tn t e r 1 at the 
"#" prompt. This calls up the Profile utility menu, whose 
choices include not only the conversion program but also 
ones for backing up your data bases onto floppies and re- 
storing them to the hard disk drive. Choice one is the conver- 
sion program. 

You are first prompted to answer a few standard ques- 
tions (the name of the Profile Plus data base, for example, the 
name of the new data base, and which floppy drive you will 
use). The program then transfers certain files from TRSDOS 
to XENIX, prompting you to change disks when appropriate. 

When the relevant files are transferred, the conversion 
process begins. The original key segment becomes the new 
key segment. Any and all Profile Plus data segments are 
combined into Multi-User Profile's single data segment. The 
map file, which keeps track of the fields and respective 
lengths you initially defined, is converted. Since Multi-User 
Profile has a different system of defining field types, your 
original specifications (alpha field, number-only field, etc.) are 
converted to the "*" default. The conversion program also 
converts all your screen formats, which is a nice time- and 
effort-saving feature. They'll look exactly the same on the 
Model 1 6B as they did on your Model II or 12. Report, label 
and forms formats cannot be converted, however. These will 
have to be re-created under Multi-User Profile. 

ON YOUR MARK, GET SET, GO! 

That's all there is to it. In less than an hour, your Profile 
Plus data base is ready for you and up to two other users to 
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access, consult, update. You can build up to the full power of 
Multi-User Profile at your own pace. I think it's incredible that 
records I originally keyed into my Profile data base two years 
ago on my floppy-based Model III are now nestled in my 
12MB hard disk TRS-XENIX 16-bit multi-user, multi-tasking, 
fawn white 16B, without my ever having to re-enter data! 
And each step along the way was logical, manageable and 
affordable. 

I'll be telling you more about Multi-User Profile in the 
coming months, but we won't forget the many users of Profile 
III/4 and 11/12 either. You're still first-class citizens. 

PROFILE Editor's Note: This is Mr. Sygoda's sixteenth 
article in a series of 'how-to' Profile articles. Other articles in 
the series will be published over the next few issues in this 
column. We hope that you enjoy this feature, and we look 
forward to your comments and questions on Profile. 

Pentacle is a New York City-based non-profit service 
organization specializing in administrative services for per- 
forming art groups. -D 



Hearts for Valentine's 
Day 

Janice and Dianna Timmann 
P.O. Box 680 
Phillipsburg, NJ 08865 



My fourteen year old daughter, Dianna, wrote this pro- 
gram called HEARTS. I hope your readers enjoy it. 



HEARTS FOR VALENTINE'S DAY 

BY DIANNA TIMMANN 

PHILLIPSBURG, N.J. 08865 

TRS-80 MODEL I, III, IV 



10 ' 
20 ' 
30 ' 
40 ' 
50 CLS 

: CLEAR 500 
60 PRINT "YOUR PICTURE CAN HAVE YOUR NAME, OR THE 

NAME OF A SPECIAL FRIEND" 
70 INPUT "YOUR NAME PLEASE "; A$ 
: L =■ LEN(A$) 
: DIM T$(114) 
80 FOR D * TO INT(57/L) 

FOR I = 1 TO L 

T$(D * L ♦ I) - MID$(A$,I,1) 

NEXT I 

NEXT D 

90 ' FOR A VIDEO DISPLAY 
100 ' CHANGE LINES 90, 110, & 120 
110 ' CHANGE LPRINT TO PRINT 
120 C = 
130 Al = 1 

P = 1 

C ■ C + 1 

IF C 
140 LPRINT ' 
150 READ A 
: Al ■ 
: IF P 
160 FOR I • 

LPRINT " "; 

NEXT I 

P = 1 

GOTO 180 
170 FOR I = Al - A TO Al - 1 

LPRINT T$(I); 

NEXT I 

P = t> 



42 THEN 32( 



Al + A 

= 1 THEN 17| 

1 TO A 



Auto Log On to 
Dow Jones on 
the Model 100 



Donald Parson 

4 Driftwood Landing 

Delray Beach, FL 33441 



I have rewritten the Auto Log-on program which appears 
on page 1 99 of the Model 1 00 Owner's Manual to enable the 
user to input the requests directly. 

You will recall that in the original version the requests had 
to be written into the program before it was run. This revision 
will allow up to five requests to be entered from the keyboard, 
but that number could be increased. 

5 MAXFILES-3 

10 INPUT "QUOTE: ";A$ 

20 INPUT "LAST ITEM ";M$ 

30 IF M$»"Y" THEN 150 

40 INPUT "QUOTE: ";BS 

50 INPUT "LAST ITEM ";N$ 

60 IF NS="Y" THEN 150 

70 INPUT "QUOTE: ";C$ 

80 INPUT "LAST ITEM ";0$ 

90 IF 0$»"Y" THEN 150 

100 INPUT "QUOTE: ";D$ 

110 INPUT "LAST ITEM ";P$ 

120 IF P$="Y" THEN 150 

130 INPUT "QUOTE (final item) " ;E$ 

150 Q$=""," 

155 ST$=CHR$(19) 

160 PH$="(telephone#X?:A=DOWl ;;?WDJNS'M? 

@(password)"M>" 
170 M=VARPTR(PH$) 
180 AD=PEEK(M+l)+(PEEK(M+2)*256) 
190 CALL 21200 
200 CALL 21293,0, AD 
210 CLS 

220 OPEN"MDM:7IlD" FOR INPUT AS 1 
230 OPEN"MDM:7IlD" FOR OUTPUT AS 2 
240 OPEN"QUOTE.DO" FOR APPEND AS 3 
250 Z$=INPUT$(1,1) 
260 IF Z$OST$ THEN 250 
270 PRINT#3,DATE$;" ";TIME$ 
280 PRINT "STARTING QUOTES REQUEST" 
320 PRINT#2,Q$;A$ 
330 GOSUB 4000 
340 IF M$="Y" THEN 500 
350 PRINT#2,Q$;B$ 
360 GOSUB 4000 
370 IF N$="Y" THEN 500 
380 PRINT#2,Q$;C$ 
390 GOSUB 4000 
400 IF 0$»"Y" THEN 500 
410 PRINT#2,Q$;D$ 
420 GOSUB 4000 
500 PRINT "SIGNING OFF" 
510 ST$=CHR$(7) 
520 PRINT#2,"DISC" 
530 GOSUB 4000 
540 CLOSE 
550 CALL 21179 
560 END 

4000 Z$=INPUT$(1 ,1) 
4010 IF Z$=ST$ THEN RETURN 
4020 PRINT#3,Z$; 
4030 GOTO 4000 JQ 



(Continued on page 42) 
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Communication 



Communications Corner 



By Al and Dru Simon 



Welcome back to our corner! The topic under discussion 
in this month's issue is utilities so we thought we would 
discuss using a word processor as a utility for a terminal 
program, as well as give you some utilities you can use with 
almost every data service or bulletin board. 

A word processor used for editing an ASCII file can save 
the user a lot of time and trouble when downloading or 
uploading programs to or from a data service. The main 
function of the word processor would be to input the ASCII file 
(all current versions of SCRIPSIT permit this in one form or 
another), make changes or corrections, and then resave the 
altered file. 

For example; if you are visiting a BBS which caters to a 
different type of BASIC than the one you are using, you may 
have to make global changes (that is, replace some character 
or amount of characters in the program at all its occurrences 
at once) in order to make it compatible with your own 
equipment. 

For another example, you might download a print file 
which is too wide for your printer. With a word processor you 
could truncate each line very readily. There are endless edit- 
ing jobs that SCRIPSIT and other word processors can ac- 
complish for you. 

With this in mind we have included two small programs in 
this month's column just for you. They are listed below, and 
when used in conjunction with a word processor they will 
allow you to capture or send machine language programs in 
an ASCII format. 

The first program is called CMDCONV/BAS. It will take a 
machine language file, (also known as /CMD file) or any 
similar file and convert it to an ASCII representation of that file 
which can then be transferred with complete ease since all 
online sources accept ASCII files. 

REM CMDCONV/BAS 



10 


REM Courtesy of Comnmet-80 Riverside, Ca 


20 


REM 714 359 3189 


30 


'USE THIS PROGRAM TO CONVERT MACHINE LANGUAGE 




FILES INTO 


40 


'ASCII FILES FOR TRANSMISSION 


50 


• 


60 


CLEAR 2000 




: DEFINT A-Z 




: DIM R$(8) 


70 


CLS 




: PRINT128, "PLEASE ENTER 'CMD* FILE NAME "; 




: INPUT 1$ 


80 


PRINT@256, "PLEASE TYPE OUTPUT FILE NAME "; 




: INPUT 0$ 


90 


OPEN "R",1,I$ 




: OPEN "0",2,0$ 


100 


FIELD 1,32 AS R$ ( 1 ) , 32 AS R$(2), 32 AS R$(3), 32 




AS R$(4), 32 AS R$(5), 32 AS R$(6), 32 AS R$(7), 




32 AS R$(8) 


110 


CLS 


120 


FOR I- 1 TO LOF(l) 



130 PRINT@256, "CONVERTING RECORD NUMBER"; I 

140 GET 1,1 

150 FOR J-l TO 8 

160 L$-"" 

170 FOR M-l TO 32 

180 N-ASC(MID$(R$(J),M,D) 

190 Nl-N/16 

200 PRINT@60," *" 

210 GOSUB 340 

220 N$-C$ 

230 Nl="N-16*Nl 

240 GOSUB 340 

250 N$-N$+C$ 

260 L$-L$+N$ 

270 NEXT M 

280 PRINT#2,L$ 

290 NEXT J 

300 NEXT I 

310 CLOSE 

320 CLS 

: PRINT CHR$(23) 

: PRINT "CONVERSION COMPLETE " 
330 GOTO 330 
340 IF Nl>9 THEN C$-CHR$ (55+1 ) 

: PRINT@60," " 

: RETURN 
350 C$-CHR$(48*1) 

: PRINT@60," " 

: RETURN 

ASCONV/BAS is the second program, and this will take a 
machine language file which has been turned into an ASCII 
file (for example, one you might have downloaded from a 
Bulletin board or CompuServe or the like) and convert it back 
into a machine language program or /CMD file. 

1 REM ** ASCONV/BAS ** 

10 REM ** COURTESY OF COMMNET-80 RIVERSIDE, CA ** 
20 REM ** A/C 714 359 3189 ** 

30 REM ** THIS PROGRAM IS A PERFECT COMPLEMENT ** 
40 REM ** TO CMDCONV/BAS AND IS USED TO CONVERT** 
50 REM ** ASCII ENCODED MACHINE LANGUAGE FILES ** 
60 REM ** BACK INTO /CMD FILES (HEX FILES) ** 

70 CLS 

: CLEAR 1000 

: PRINT@256,; 
80 LINE INPUT "NAME OF 'ASCII' FILE TO BE CONVERTED 

>";l$ 

90 PRINT 

: LINE INPUT "NAME OF MACHINE LANGUAGE OUTPUT 

FILE >";0$ 
100 OPEN "I", 1,1$ 

: OPEN "0",2,0$ 
110 LINEINPUT#1,A$ 

: IF A$-"" GOTO110 

: A$-RIGHT$(A$,LEN(A$)-INSTR(A$, )) 

120 D$«"" 

: PRINT@512.AS 

: FOR X-l TO LEN(A$) STEP 2 
130 C$"MID$(A$,X,2) 
D-ASC(C$> 
E-ASC(RIGHT$(C$,D) 
D-(D-48)+(D>57)*7 
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: E-(E-48)+(E>57)*7 

: M-D*16+E 

: D$«D$+CHR$(M) 

: PRINT CHR$(-M*(M>31 AND 

M<97-46*(M<320RM>96));" "; 

: NEXT X 
140 PRINT"2,D$; 

: IF NOT EOF(l) THEN 110 ELSE CLOSE 
150 PRINT "FINISHED" 

WHY ARE BASICS DIFFERENT? 

For your reference we'd like to explain why BASIC for 
one machine and system will not work for another machine 
and system unless transferred in ASCII. 

Your BASIC programs are passed through an inter- 
preter, either ROM or RAM resident, so that each reserved 
word (for example the word PRINT) is encoded into a number 
called a TOKEN. That encoding scheme (or table) tends to 
vary from BASIC to BASIC; therefore, if you try to transmit a 
BASIC file which is not in ASCII, you will be sending the 
TOKEN number. In other words, while N may be the TOKEN 
number for PRINT in TRS BASIC, it may well represent the 
word RUN in IBM's BASIC. 

THE NEWS FROM PLUMB 

Here's some warm stories from our friends at 
PLUMB . . . 

> General Electric has joined the growing number of 
companies trying to entice potential employees through their 
home computers. GE invites job-seekers with technical or 
engineering skills to file their resumes directly into the compa- 
ny's GENSTAR computer. To access the system call 301 -340- 
4800 for 300 baud or 301 -340-5096 for 1 200 baud. Type "H" 
several times, then enter "GGV44101 ,GE" for the user code 
and hit fE NTER) . According to GE, the resume will be 
stored at the company's Valley Forge, Pa. headquarters and 
electronically transmitted to GE Space Systems facilities 
across the country. 

>The story of TIMECOR— The International Modem 
Exchange Corporation— may well be the ultimate bulletin 
board success story. "It all started out as a lark," said Bud 
Napier, the man who started the system a couple of years 
ago ... in his Boston apartment. 

As the board's popularity increased, callers found it 
harder to log on. Eventually Napier installed a multiplex sys- 
tem that lets five callers at a time share access to the board, 
but that still didn't satisfy demand so Napier took the next 
logical step— he went commercial. He loaded an expanded 
version of the Boston board on a mainframe computer in 
McLean, Va. and plugged it into the Telenet system, which 
offers local-number access to commercial databases in the 
larger U.S. cities. 

TIMECOR itself is a fruit salad of computer goodies 
stocked on some 30 boards. Callers to the Boston board 61 7- 
720-3600 get an extensive tour of the premises and access to 
some of the general interest boards. Telenet callers can 
check out the mainframe version of TIMECOR by typing C 
202141 at the prompt. Enter "guest. timecor" for user name 
and "guest" for the password. There is a charge for the 
service. 

As usual our thanks and greetings to Ric Manning at 
Riverside Data Inc for his permission to reprint these items. 
PLUMB can be contacted by writing to P.O. Box 300, 



Harrods Creek, KY 40027 (502) 228 3820 or by leaving 
messages for CompuServe account 72715,210 or account 
STQ007 on The Source. 

THE CORNER MAILBOX 

Dear Al & Dru Simon, 

I read your article in . . . <the> September issue with 
keen interest. I went out and bought the Art Gallery program 
and the video selector and cable. I put everything together 
and couldn't get titles to transfer to video tape. 

Would GREATLY APPRECIATE your telling me what I did 
wrong. 

Respectfully, 

Philip Schneider 

Brooklyn, NY 

Dear Philip: 

As you will find on page 9 of your manual, when you want 
to save your pictures to videotape, have the picture loaded 
onto the screen of the Color Computer by pressing 3 at the 
main menu which will load your stored picture. Here's what 
you do next: 

1. If you have not included MOVING text with your pic- 
ture then turn on your VTR, putting it in RECORD/ 
PAUSE position (or VIDEO INSERT/PAUSE if you have 
that option). 

2. Next, turn the selector so that the VTR recording is to 
Auxiliary 2, and TV is to VTR. 

3. Make sure the VTR/TV switch on the VTR itself is in the 
VTR position. 

4. Check the picture, release the PAUSE for the duration 
you wish the title to last, and VOILA! 

If you have mixed MOVING text with your picture after 
loading as above, go to RECORD/PAUSE on your VTR, re- 
lease the PAUSE, press number 5 on the main menu to start 
the text moving, press the space bar when you wish to stop 
the text, and continue as above. 

That method works just perfectly for us. Good luck! 

Dear Al, 

I recently purchased an Extended BASIC Color Com- 
puter, mainly as an inexpensive introduction to computers for 
my children and myself. 

I happened to mention to my wife that it would be nice to 
get a print-out of the programs I was trying to write. She 
bought me a printer with a serial interface board and that was 
the start of my problems. 

I am not at all knowledgeable about electronics or com- 
puters so I was confused by the fact that the Radio Shack 
cable #26-3014 had four (4) pins and the printer connector 
had seven (7) pins. 

The man working on my problem kept plugging and 
unplugging the cable with the power to both the computer 
and the printer switched on (contrary to the instruction manu- 
als). Maybe this is not a problem, but I hate to take chances. 

In addition to the cable problem I have no idea what the 
word "handshake" means in relation to a computer. 

I feel competent enough to modify the cable connector 
after having read your articles. 

Yours very truly, 

Don Love 

Houston, Tx 
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Dear Don; 

The printer you bought is using handshaking protocols 
which are not supported by only four pins. The 4 pins you 
receive are READ DATA, SEND DATA, SIGNAL GROUND, 
and CHASSIS GROUND. 

Handshaking means that the printer is looking for a 
signal to be sent to it to tell it to GET READY; then it s sending 
a signal back saying "I'M READY"; and then the text is 
transmitted to the printer until it sends a message which says 
"MY BUFFER IS FULL, WAIT A MINUTE" or until the end of 
file is reached (whichever comes first). Most of these signals 
are not available with the four pin cable that you have, such as 
the RTS and DTR and therefore I would suggest that you 
contact the manufacturer of the printer and tell him that you 
have just 2,3, 7, and 8 available and ask his advice as to what 
pins he would suggest that you tie together on the other end. 

Also, your feeling is correct; it is NOT a good idea to 
connect and disconnect equipment with the power on, on 
either side! .XI 



Bugs, Errors, and Fixes 

LETTER CORRECTIONS TO SOFTWARE 

Following are brief descriptions of problems to be fixed 
in specific software packages and the dates of letters that 
were sent to all registered owners containing the corrections 
to the problem. 

If you are a registered owner of a software package 
described below and have not received the letter detailing 
the software problem and its correction, then contact your 
nearest Radio Shack Computer Center or Computer Cus- 
tomer Services. If you have not registered and are a legal 
owner of the software, you need to register by sending in the 
card that came with the package. 

Model I/III/4 

SUPERSCRIPSIT (26-1590 Vers. 01.02.01) 

These corrections, to Model III SuperScripsit only, pre- 
vent the printing of multiple copies of the same lines in very 
long documents. 

Letter dated: September 8. 1983 

SUPERSCRIPSIT (26-1590 Vers. 01.02.02) 

A brief power outage or an improper exit from the pro- 
gram can cause a screen to show garbage" or to lock up. 
This happens particularly when block action commands are 
attempted. The corrections reduce the chance of the situation 
happening. 

Letter dated: September 20. 1983 

Model 11/12/16 

TIME ACCOUNTING (26-4520 Vers. 01 .00.00) 

Updates programs dealing with deletion of clients, billing 
worksheets, statements, and simulations, and the index han- 
dling of the client file. 

Letter Dated: August 4, 1983 

GENERAL LEDGER (26-4601 Vers. 01 .00.00) 

Changes programs concerned with transaction pro- 



cessing and statement print. 

Letter Dated: August 29, 1983 

ACCOUNTS RECEIVABLE (26-4604 Vers. 01 .00.00) 

Modifies programs dealing with invoices and salesmen 
reports. 

Letter Dated: August 22, 1983 

ACCOUNTS PAYABLE (26-4605 Vers. 01.00.00) 

Corrects inaccurate posting and distribution of Accounts 
Payable transaction processing. 
Letter Dated: August 22, 1983 

ORDER ENTRY/ICS (26-4607 Vers. 01.00.00) 

Changes concerned with deletion of orders, order pro- 
cessing, rounding errors, and price selection with the F1 key. 
Letter Dated: August 4, 1983 

ICS-HARD DRIVE (26-4802 Vers. 01.00.00) 

Problems with transaction processing have been 
corrected. 

Letter Dated: September 7. 1983 

OTHER CORRECTIONS 

The following changes and corrections are optional and 
provided for your information. If you have an applications 
program which is working correctly, you should probably 
NOT make any changes to it. If you feel that changes should 
be made, but you do not feel qualified to make the change 
yourself, contact your local Radio Shack Computer Center or 
Expanded Computer Department for assistance. If you do 
not have access to one of these stores, then you may want to 
call Computer Customer Service in Fort Worth for assistance. 

Color Computer 

MC-10 OPERATION & LANGUAGE REFERENCE 
MANUAL 
(26-3011) 

Page 18, Part 3 

Reads: Graphics characters generated from the key- 
board can be very useful when a graphics printer or graphics 
pad (such as the TRS-80 Model GT-1 6 x-pad) is connected to 
the MC-10. 

Change: Graphics characters generated from the key- 
board can be very useful when a graphics printer is con- 
nected to the MC-10. 

Model I/III/4 

MODEL 4 TRSDOS AND BASIC INTERPRETER (26-031 3) 

In MAILLIST 01.01.00 on TRSDOS 06.01.00 or 
06.01.01, change statement 1670 and 180 to read: 



1670 GOSUB 2820 

: IF NOT REPLY* THEN 1760 
180 PRINT(?(12,31), "Version 01. 01. 01" 



'Print Version 



Peripherals 

DMP-2100 OPERATIONS MANUAL (26-1256) 

Change line 200 on page 53 to read: 

200 DATA -5,0,-5,1,-5,2,-5,4,-5,8,-5,16,-5, 
32,-5,39,64.127,32,32 



J3 
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Administrative Series for TRS-80 
Model 12/11 



A new series of administrative software products from 
Radio Shack is designed to help schools collect, store, re- 
trieve, and print out basic student information, attendance 
data, student grades, and scheduling information. 

The Radio Shack School Administrative Software Prod- 
ucts series is a comprehensive administrative tool in four 
modules: Student Information System, Attendance System, 
Grade Reporting System, and Individual Scheduling System. 
Together, these systems will interact to meet most of the 
student records needs of schools. The Student Information 
System was released fourth quarter 1983. The Attendance 
System and the Grade Reporting and Individual Scheduling 
systems will be available in early 1984. 

Programs can be used with a TRS-80 Model 12 com- 
puter with one floppy disk drive and a hard disk, a Model 12 
computer with two floppy disk drives, or a Model II computer 
with one floppy disk drive and one hard disk. A line printer is 
also needed to produce reports. For all packages except the 
Student Information System, a Radio Shack CR-510 Card 
Reader is needed to read attendance, grades, and schedule 
cards. 

THE STUDENT INFORMATION SYSTEM 

The Student Information System (Radio Shack Cat. No. 
26-2729) is the foundation of the data base. The Student 
System is a collection of integrated computer programs that 
allow you to collect, organize, retrieve, and print out informa- 
tion on the student population at your school. 

The heart of the Student Information System is a list of 
student profiles that you construct as students enter or leave 
your school. Each profile includes basic information in which 



Puirt -few :» ; m* : 

M*ms: Cl«S. HtwtonDr ] 

cc«ntrii at* 3 1-:: 

:ikoim umu 

How Phorw I C5K3 U35-45HJ 

ttri Pftow l C5353 IJ55-&5553 Ext t 2343 



Ewrgtncy C«rt»cti 

1 liw [Frin Refeinson 

2 tat Mk Stan* 

Look Nu*r C387SHJ 
Counw.y [Witt, 4*m1 



3 «lw* CJ553 C55I-75553 Ext t 3 
: Ptow C55I3 IJ55-815J1 Ert C34S1 



Stuwnt BirthwU C 3/»'«H 

Co-** t 3 



§<*ne*l fCtmitu 



most schools are interested— for example, parent names 
and addresses, and emergency contacts (see Screen 1). 

A profile can also contain information that you choose to 
enter based on your school's unique needs. Such informa- 
tion might include items like an individual's extracurricular 
activities, health and immunization status, or scores on stan- 
dardized tests. Screen 2 shows some of the special informa- 
tion categories that a school might set up and how this 
information might be recorded for one student: 
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Once student information has been entered, many op- 
tions are available. Standard print-outs such as mailing la- 
bels, folder labels, and lists of enrolled and dropped students. 
are provided for in the system. In addition, a "special inquiry" 
feature lets you construct special reports. For example, you 
might want to print a list of the names and complete ad- 
dresses of all students in the marching band (if "marching 
band" is one of the information categories you added to the 
system). 

Records in the system can be updated at any time, and a 
special "promotion and graduation" feature allows you to 
move all students in the system ahead one grade level (ex- 
ceptions can be made for students who will not be 
promoted). 

Since the Student Information System stores the basic 
enrollment information for students in your school, you need 
this system in order to use the Attendance, Grade Reporting, 
or Scheduling systems. 

THE ATTENDANCE SYSTEM 

The Attendance System (Cat. No. 26-2730) helps you 
keep track of attendance at your school for those students 
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whose names have been entered into the Student Informa- 
tion System. The teacher records absences on special cards; 
then school personnel can quickly feed the information on 
these cards into the computer using a CR-510 Card Reader 
attached to the computer. The Attendance System gives you 
the option of taking attendance on either a period-by-period 
or daily basis, and It calculates monthly attendance statistics. 
The system can also keep track of how absences are 
resolved. 

THE GRADE REPORTING SYSTEM 

The Grade Reporting System (Cat. No. 26-2731) helps 
schools produce grade reports. Grades for each class roster 
can be recorded on special machine-readable cards, then 
printed out on report cards. Each student's grade can in- 
clude an academic mark, a citizenship mark, absences, and 
the number of credits earned in the course. The evaluation 
can also be supplemented by up to three "teachers' com- 
ments'' chosen from a list of 36 comments which the school's 
faculty can itself make up. 

THE INDIVIDUAL SCHEDULING SYSTEM 

The Individual Scheduling System (Cat. No. 26-2732) 
helps you plan your master schedule, schedule students, 
produce student schedule cards, and continue to change 
individual student schedules during the term whenever nec- 
essary—all with a minimum of paperwork. 

HOW YOU CAN USE THE RADIO SHACK SCHOOL 
ADMINISTRATIVE SOFTWARE PRODUCTS 

The four modules in this series can be used by schools of 
any size. To make it easy for any teacher or administrator to 
use the programs, each package contains a training manual 
with a demonstration section. Helpful drawings and a friendly 
tone m the manual help create an experience that is 
non-threatening. 
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To learn how to obtain the Student System, the Atten- 
dance System, or the other packages as they are released, 
check with your local Radio Shack store or Computer Center. 
Radio Shack also has 25 Regional Educational Coordinators 
(listed below) located around the country to help local 
schools and districts meet their computing needs. J3 



RADIO SHACK 
REGIONAL EDUCATIONAL COORDINATORS 

Western Educational Marketing Manager 

Scott Bowers 

Radio Shack 

1400 One Tandy Center 

Fort Worth. TX 76102 

817/390 3910 



Chicago Regio n 
Donna Comber 

Radio Shack 

679 W. North Avenue, Suite 204 

Elmhurst. IL 60126 

312/833-1010 

Dallas Region 
Sid Agent 

Radio Shack 
2588 Royal Lane 
Dallas. TX 75229 
214-258-1530 

Detroit Region 
Celia Magro 

Radio Shack 

29548 Southfield Rd . Sute 200 

Southfeld Ml 48076 

313/552-9290 

Kansas City Region 

Pat Nickens 

Radio Shack 

9590 Quivera St 

Linexas KS. 66215 

913'541-1088 

LomsviHe Region 

Penny Shattuck 

Radio Shack 

553 N. Court. Suite 175 

Palatine. IL 60067 

312/991-2275 

San Diego Region 

Bob Norman 

Radio Shack 

12821 Knott Street 

Garden Grove. CA 92641 

714/894-1371 X255 

Seattle Region 
Annie Gillvan Green 

Radio Shack 

5030 Roosevelt Way, N E 

Seattle. WA 98105 

296/527-8607 



Columbus Reg on 
Sonny O. Compton 

Rado Shack 

4343 Williams Road 

Groveport, OH 43125 

614/836-3980X252 

Denver Region 

Rosemary Shiels 

Radio Shack 

5890 W 44tn Avenue 

Denver. CO 80212 

303-424-4467 

Houston Region 

Jim Savoie 

Radio Snack 

71 19 San Pedro 

San Antonio. TX 78216 

512/341-2622 

Los Angeles Region 

Terry Kramer 

Radio Shack 

14126 E Firestone 

Santa Fe Springs, CA 90670 

213/921-2659 

Sa cramento Region 

Steve Terhune 

Radio Shack 

1337 Howe Avenue, Suite 201 

Sacramento, CA 95826 

916/920-1298 

San Francisco Region 

Pat McDonald 

Radio Snack 

1291 F H'llsdale Suite 211 

Foste' City CA 94404 

415/574-1708 



Eastern Educational Marketing Manager 

Ron Moore 

Radio Shack 

1400 One Tandy Center 

Fort WoMh. TX 76102 

817/390 3527 



Albany Region 
Don Francolino 

Radio Shack 

39 S Mam Street 

West Harford. CT 06017 

203/232-4529 

Boston Region 

Dick Callahan 

Radio Snack Fducaton Divsion 

250 Granite Street 

Braintree, ma 02368 

617/848-0780 
Miami Reg on 
Pete Lenkway 

Radio Snack 

4360 N. Federal H ghway 

Ft Lauderdale FL 33308 

305/493-5021 



Atlarta Region 
Art Williams 

Radio Shack 

241 W Wieuca Road. N.E. 

Atlanta GA 30342 

404/255-9438 

Charlotte Region 

Jerry Proffitt 

Radio Shack 

5701 W. Park Dr ve Suite 205 

Charlotte. NC 28210 

704/527-7442 

New York Region 

Mick Nuspl 

Radio Shack 

21 1 North Avenue 

New Rochelle. NY 10801 

914/576-7065 
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New York Region 
Bob Sochor 

Radio Shack 

6 East 39th Street, Room 401 

New York. NY 10016 

212/696-9800 

Philadelphia Region 

Maddie Lesnick 

Radio Shack 

Crest Plaza 

Cedar Crest Blvd. & U.S. 22 

Allentown, PA 18104 

215/395-5755 

Tampa Region 

Paul Hoagland 

Radio Shack 

5729 N. Hoover Blvd.. Suite 230 

Tampa, FL 33614-5373 

813/886-2974 



Philadelphia Region 
Don Wallick 

Radio Shack 

Rt. 130 & Cinnammson Avenue 

Cmnaminson, NJ 08077 

609/829-691 1 

Pittsburgh Region 

Winston Ferrell 

Radio Shack 

1679 Washington Road 

Pittsburgh, PA 15228 

412/833-1918 

Washington DC. Region 

Kevin Hogans 

Radio Shack 

Computer Center #7267 

48 W. Ridgley Road 

Lutherville, MD 21093 

301/561-2472 



Disk Sorting on the 
TRS-80 



Richard Earp, Ph.D. 

Associate Professor of System Science. 

University of West Florida 

12/128 

Pensacola FL 32514 



INTRODUCTION 

There have been several programs and articles 
published that deal with sorting. C.2) Unfortunately, these sort 
articles deal mostly with array sorting and not with a major 
problem of the small computers. Array sorts are fine for in- 
core (in memory) sorts of strings and numbers, but difficulties 
with disk l-O speed and with memory arise when one wants to 
sort long files. This article deals with the sorting of files of 
various lengths and record sizes on disk. Three approaches 
to sorting files will be presented— the addition sort/merge, 
key sorts, and partitioned sorts. The observations made here 
spring from the experience of writing software to efficiently 
sort files < 3 >. In the examples that follow, the direct access 
(random) file mode is used. Sorting sequential files could be 
done similarly, but an intermediate, random file would be 
necessary for the partitioned and key sorts. 

BACKGROUND 

Before attacking the real problems of disk sorting (disk 
l-O and memory), it must be understood that some algorithm 
for in-core sorting is necessary. A couple of examples of file 
sorting situations which are inefficient, albeit instructional, will 
show the problem of disk sorting and the necessity for the sort 
algorithm. 

To sort a file, one could use the in-core algorithm and 
substitute disk l-O for array indexing but this is inefficient 
because of slow disk l-O. For example, instead of . . . 

500 REM — PART OF SORT ALGORITHM 
510 IF A$(I) < A$(J) THEN 540 



One might substitute (e.g., FIELD 1,20 AS R$) . . . 

500 REM — DISK SORT 
502 GET 1,1 

: REM — THE Ith RECORD FROM FILE 1 
504 RI$ - R$ 
506 GET 1,J 

: REM — THE Jth RECORD 
508 RJ$ - R$ 

510 IF RI$ < RJ$ THEN 540 
520 REM SWAP 
530 LSET R$ - RI$ 

:PUT 1,J 
535 LSET R$ - RJ$ 

:PUT 1,1 
540 REM — REST OF SORT 

Using a sort algorithm to read, compare and re-write 
records two-at-a-time is very slow because disk 1-0 is very 
slow and the less disk l-O, the better. Therefore, more efficient 
sorts use some technique of bringing data into memory, 
sorting, and then returning the data to disk. For exam- 
ple, for a small file, the following segments would be 
appropriate . . . 

390 REM early housekeeping is omitted 

400 FIELD 1 ,20 AS R$ 

410 LI - L0F(1) 

420 FOR J - 1 TO Ll 

430 GET 1,J 

440 A$(J) - R$ 

450 NEXT J 

500 . . . 540 contains a sort for A$. 



600 FOR J - 
610 LSET R$ 
620 PUT 1,J 
630 NEXT J 



1 TO Ll 
- AS(J) 



520 


REM SWAP 




530 


H$ 


- A$(I) 








A$(I) - 


A$(J) 






A$(J) - 


H$ 



540 REM ~ REST OF THE SORT ALGORITHM 



This program will only work for small files which have the 
sort key beginning in the first byte of the record. If the sort key 
were elsewhere. A$ would be a concatenated string of MID$s 
which, after sorting, could be rearranged to re-file using 
MID$s again. This program gives the idea of what the ideal 
sort contains —one pass through the file to gather data, sort- 
ing, then one pass to re-write the file. 

There are various sorting mechanisms which can be 
written in BASIC which might be used in lines 500-540. 
However, because interpretive BASIC is much slower than 
machine language, it is preferable to use an assembled 
algorithm if the size of the array to be sorted is significant (if 
there are only 5 or 10 entities, it might be easier to use a 
BASIC subroutine). In the Model III, one has the CMD "O" 
sort built in. With the Model II, 12 and 4 a bit more work is 
required, because the user has to load his own sort routine. 
The sort routine for array sorts as described in the TRS-80 
Microcomputer News, July 80, works quite well for non- 
Model III users < 4 >. 

SORTING DISK FILES 

To discuss disk sorting, there are two givens. One, a fast 
machine language sort is best for the in-core part of the sort, if 
the length of the array to be sorted is significant. Two, minimal 
disk l-O is always sought because disk l-O is a relatively slow 
process. To sort disk files, three disk sort mechanisms will be 
presented: (a) a limited addition-merge sort, (b) a key only 
sort, and (c) a partitioned sort. Program segments will accom- 
pany the latter two mechanisms. All of the techniques require 
sufficient disk space for a scratch (temporary) file. 
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THE LIMITED ADDITION-MERGE SORT 

One way to build a sorted file is to limit the additions to the 
file to a small number of records. This filing technique illus- 
trates the minimal disk 1-0 virtue. It is useful when only a small 
fraction of a file is out of order. The small number of records 
that are added to the file are kept in memory before they are 
added to the file. (In fact, the file need not be opened until the 
records to be added are accumulated and sorted.) After 1 or 
so records are accumulated in an array, they are sorted in 
memory and then merged into the file itself. It is easier to 
merge than to sort, because the position of the records being 
merged can be determined by one pass through the sorted 
array of additions and one read-pass through the file. The 
safest way to add records and to recreate the file is to create a 
sorted "scratch" file and then either to recopy the scratch file 
onto the original file space or to keep the scratch file as the 
new version of the sorted file. The programming sequence is 
summarized as follows.. 

1 . Read the data to be added into an array A$. 

2. Sort the array A$. 

3. Open the sorted file. 

4. Read the sorted file and the sorted array A$ one 
record at a time and file the lesser in a SCRATCH file. 

5. Copy the SCRATCH file over the original file or rename 
the SCRATCH file and keep it as the newest version of 
the data. 

This technique results in slow data entry, but it keeps the 
user from having to face the problem of sorting an entire file. 
To build the file, one might limit the number of additions to say 
10 records or less. Even if the file was 250 bytes long, all 10 
records could be kept in memory and sorted. When the first 
10 records had been used to create the original file, the next 
1 would be merged with the first 1 0. Each time, the new data 
is read into memory, sorted, and merged with the old data to 
form a longer file. 

If desired, generations of files could be kept. For exam- 
ple, suppose that 1 records were used to create the first file, 
and it was named FILE1 (10 records). Then, the second, 
merged file might be named FILE2. FILE2 would contain 20 
sorted records. When the next 10 records were ready to be 
added, FILE2 could be renamed as FILE1 (wiping out FILE1 ) 
and a new FILE2 created. Note that FILE2 will always be one 
generation later than FILE1 and contain the latest addition of 
records. (Generation data sets can consume a great deal of 
disk space.) 

The advantage of this "limited addition" system for main- 
taining large, sorted files is that it is easy to implement. The 
program segments to do the sorting can even be written in 
BASIC with little sacrifice in sort time. The disadvantages of 
this system are that one has to enter a small number of 
records and wait, and there is ever a need to sort the entire 
file, this technique won't help much. 

THE KEY ONLY SORT 

When an entire file has to be sorted, the key only sort 
could prove to be useful (if enough memory is available). 
Suppose that one has a file containing 800 records, each 
record with a length of 200 bytes. To do an in-core sort of all 
records would require 160K. However, suppose that the file 
contained names, addresses, phone numbers, etc. Suppose 
further that what was desired was to sort the file on the name 



field. Using Model III terminology, consider the following 
segment: 

10 CLEAR 20000 

15 DEFINT I-N 

20 DIM NA$(800) 

30 OPEN "R",1,"FILEIN",200 

40 FIELD 1,20 AS N$, 180 AS R$ 

: REM N$ « name - 1st 20 bytes 
50 Ll - L0F(1) 
60 FOR J - 1 TO Ll 
70 GET 1,J 
80 NA$(J) - N$ 

: REM Each name is put in the array NA$ 
90 NEXT J 
100 CMD"0",L1,NA$(1) 

: REM The array NA$ is sorted 

To produce a list of names, one could print out NA$; 
however, the ultimate goal of this study is to produce a sorted 
file. To write a new, sorted file requires that (a) a second file be 
defined and (b) that some mechanism be defined to tell 
where to get the records after NA$ is sorted. 

The following lines are added to the program: 

52 FOR J - 1 TO Ll 

54 NA$(J) - STRING$ (22," ") 

: REM 22 « length of N$ ♦ 2 bytes 
56 NEXT J 

These lines predefine the NA$ array so that MID$ may 
be used as a pseudovariable (on the left hand side of the = ) 
to minimize garbage collection (garbage collection is a slow 
process). It is necessary to define only L1 array entries (see 
statement 50). 

Next, some lines must be modified and added: 

80 M1D$ (NA$(J),1,20) - N$ 

82 MID$ (NA$(J),21,2) - MKI$(j) 

These two lines prevent garbage collection because 
they operate on a predefined string. Statement 82 stores the 
binary equivalent of the record number in bytes 21 and 22 of 
the NA$ array. 

Now, when CMD "0" is executed, the position of the 
names will change to sorted order, but the 21-22 bytes of the 
array contain a pointer to record the position that the name 
came from. How is the sorted file produced? After statement 
100, the following would generate the sorted, new file: 

110 OPEN "R",2,"FILEOUT",200 

120 FIELD 2,20 AS NX$ , 180 AS RX$ 

130 FOR J - 1 TO Ll 

140 NR - CVI (MID$(NA$(J),21,2)) 

150 GET 1,NR 

160 LSET NX$ - N$ 

: LSET RX$ - R$ 
170 PUT 2, J 
180 NEXT J 
190 CLOSE 1 

: CLOSE 2 

The key to the finding of the original record is statement 
140. Array NA$ was sorted in statement 100. NA$(1) con- 
tains the lowest name, and byte 21-22 tells where the record 
with that lowest name is in FILEIN. This record is fetched 
(statement 150), the buffer for FILEOUT is loaded (160), and 
record 1 of FILEOUT is written (170). 
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The advantage to this system is that it allows the user to 
sort larger files than in system 1 . There is no need to presort 
the file and all 800 records could be sorted in two passes (one 
sequential and one random). The disadvantage, of course, 
lies with the limitation on memory. What if there are 2000 
records or what if the key is 60 bytes long or both? This 
situation must be handled using a partitioned file sort as 
described in the next section. 

THE PARTITIONED SORT 

Although the file sort scheme in the previous section is 
efficient for files of limited size, larger files require more work. 
The technique will be to divide the file into small digestible 
parts, sort the parts and then to merge the sorted parts into 
one sorted file. A scratch file will be used for the intermediate, 
sorted, partitioned file. An example of this technique might be 
illustrated as follows. There exists a file of 8000 records, each 
record 250 bytes long. Suppose that this file again contained 
names, addresses, etc., and that is was desired to sort it by 
name. The file could be broken up (partitioned) as 10 files of 
800 records each. Each 800 record segment could be sorted 
and the final file could be created by merging the lowest 
record from each partition. 

Programs similar to the registration and records sorting 
system of Jefferson Davis Junior College are shown below. 
The sort of the file is accomplished by using two programs. In 
the testing phase of this work, it was easier to use two pro- 
grams for debugging; these two programs could easily be 
combined. 

Program 1, SSS1, generates SCRATCH, the partition- 
sorted file. Statement 30 limits the partition size to 450 re- 
cords. Statement 100 uses NN as an end-of-file marker. 
Statement 100 could be replaced with some other means of 
finding EOF, but LOF is convenient. The statement in 120 
(NH = 400) defines the partition size. The array A$ is prede- 
fined in order to use MID$ as a pseudovanable and limit 
garbage collection. Variable JJ points to the next record to be 
read in the input file. Within each partition, as it is being 
created, K defines the position in A$. Note that the sort 
system is Model II, using the July 80 technique for machine- 
language sorting and that it is re-loaded every time in state- 
ment 320. 

Partition Sort Program 1— SSS1 

2 REM FIRST PART OF SORT "SSS1" APR 20 83 
10 CLEAR 20000 
20 G0SUB 3000 

: REM load sort routine 
30 DIM A$(450) 
40 DEFINT I - N 
50 LAZ - 18 

60 OPEN "R",1,"FILEIN",LA% 
70 FIELD 1 ,LA% AS R$ 
80 OPEN "R", 2, "SCRATCH", LA% 

: REM the output file 
90 FIELD 2.LA2 AS RA$ 
1 



NN - L0F(1) 
110 K = 
120 NH - 400 

: REM this 

part it ion 
130 FOR J - 1 TO NH 

: A$(J) - STRINGS (LA* 

: NEXT 
140 JJ - I 



the number of records in a 



+ 2 



150 JJ - JJ + 1 

160 GET 1,JJ 

170 K » K ♦ 1 

180 MID$(A$(K),1,LA2) - R$ 

190 MID$(A$(K),LA2 + 1,2) - MKI$(JJ) 

200 IF K - NH OR JJ - NN THEN 220 

210 IF JJ < NN THEN 150 

220 IF K <> NH THEN NH - K 

230 GOSUB 2000 

: REM perform sort routine 
240 REM what follows creates the next partition in 

order 
250 FOR J - 1 TO NH 
260 NP - CVI(MID$(A$(J),LA2 + 1,2)) 
270 GET 1,NP 

280 LSET RAS » LEFT$(A$ ( J ) , LA* ) 
290 NQ « JJ - (NH - J) 
300 PUT 2,NQ 
310 NEXT 
320 GOSUB 3000 

: REM reload sort (it self-destructs) 
330 IF JJ < NN THEN K = 

: GOTO 150 
340 CLOSE 1 
350 CLOSE 2 
360 RUN"SSS3" 

2000 IF NH < 2 THEN RETURN 
2010 Z - 
2020 N1(0) - NH 

: Nl(l) - VARPTR(A$(1)) 
2030 Z - USR0(VARPTR(N1(0)) 
2040 RETURN 

3000 REM FROM JULY 80, TRS 80 MICROCOMPUTER NEWS 
3010 DEFUSR0 - &HF0D0 
3020 SYSTEM"LOAD SORT/CIM" 

3030 REM sort stored on disk and reloaded each time 
3040 RETURN 

Program 2, SSS3, reads the SCRATCH file created in 
SSS1 . The trick here is keep track of where you are in each 
partition. NG defines the number of partitions (line 1 20). The 
array NS keeps track of where you are in each partition, and 
array NP gives the upper limit of each partition as a record 
number. For example, suppose that there were 1 000 records 
to be merged and partition sizes were 400. There would have 
to be 3 partitions, NG = 3. 

Following the logic in lines 1 10-200, 

NS(1) = 1, NP(0) = 

NS(2) = 401, NP(1) - 400 

NS(3) = 801, NP(2) = 800 

NS(4) = 1000, NP(3) = 1000 

A$(i) contains the record in the first, NS(i), position of 
each partition (unless the partition is exhausted, where A$ is 
set = "ZZZ"). When the A$ array is defined, it is sorted and 
the smallest A$ is used to file the next record in FILEOUT. As 
the smallest entity of the sorted A$ array is filed, the next 
member of the partition from which A$ came replaces A$(1 ). 
Note that when A$ is defined (line 240), the partition number 
is appended. After sorting, the partition number is still in bytes 
LA%+ 1 for 2 bytes. The partition number is the basis for 
incrementing the counter NS in line 330. To keep the program 
simple, garbage collection was ignored; however, for more 
efficiency, the use of predefined strings as in SSS1 would be 
better. Also, a common BASIC sort for the A$ array was used. 
For only 10 or so partitions, the loss in sort efficiency due to 
BASIC is not too bad. Also, if using a non-Model III, one 
would have to re-load the sort L1 times. If sort speed was a 
factor, then the machine language sort could be substituted 
(but it would have to be loaded with POKEs). 
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Partition Sort Program 2— SSS3 

2 REM PROGRAM "SSS3" MAR 24 83 
10 CLEAR 20000 
20 DIM A$(20) 

: REM up to 20 partitions 
30 DEFINT I - N 
40 LAX - 18 

: REM matches statement 50 in SSS1 
50 0PEN"R",1, "SCRATCH", LAZ 

: REM now to be used as input 
60 FIELD l.LAZ AS R$ 
70 OPEN"R",2,"FILEOUT",LA2 
80 FIELD 2,LAZ AS RA$ 



90 NH - 


' 400 










100 


NN 


- L0F(1) 










110 


K ■ 


' 










120 


NG 


- (NN/NH) 


+ 1 












REM number 


of 


partitions 




130 


IF 


NH ■> (NG - 


1) 


- NN 


THEN 


NG 


140 


FOB 


t J ■ 1 TO 


nn : 


5TEP 


NH 





NG + 1 



150 K - K + 1 

160 NS(K) - J 

170 NP(K - 1) - J - 1 

180 NEXT 

190 NS(K + 1) - NN 

200 NP(K) - NN 

210 NO - 

220 FOR J - 1 TO NG 

230 GET 1,NS(J) 

240 A$(J) - R$ ♦ MKI$(J) 

250 NEXT 

260 GOSUB 2000 

: REM sort A$ (for simplicity BASIC is used) 
270 IF A$(l) - "ZZZ" THEN 370 
280 NO - NO + 1 
290 LSET RA$ - A$(l) 
300 PUT 2, NO 
310 IF NO - NN THEN 370 
320 NQ - CVI(MID$(A$(1),LA2 ♦ 1,2)) 
330 NS(NQ) - NS(NQ) + 1 

340 IF NS(NQ) > NP(NQ) THEN A$(l) - "ZZZ" 
350 IF A$(l) <> "ZZZ" THEN GET 1,NS(NQ) 

: A$(l) - R$ + MKI$(NQ) 
360 GOTO 260 
370 CLOSE 1 

: CLOSE 2 
380 RUN"MENU" 

2000 REM SORT FOR PARTITION SAMPLES 
2010 FOR L - 1 TO NG - 1 
2020 X$ - A$(L) 
2030 KA - L 

2040 FOR K - L ♦ 1 TO NG 
2050 IF A$(K) < X$ THEN X$ - A$(K) 

: KA - K 
2060 NEXT K 

2070 IF KA - L THEN 2110 
2080 XA$ - A$(L) 
2090 A$(L) - A$(KA) 
2100 AS(KA) - XA$ 
2110 NEXT L 
2120 RETURN 



CONCLUSION 

Techniques exist for sorting arrays. These array sorts are 
of varying efficiency, often depending on the data. The prob- 
lem exists that there is no convenient or fixed way to sort large 
files on micro-personal computers. For files with limited vo- 
latility, a limited addition-merge sort might be practical. For a 
small file where keys will fit in memory, a key sort is fast and 
efficient. For a sort problem involving an entire large file, the 
partitioned approach to file sorting was presented. By parti- 
tioning a file into smaller files of manageable size, large files 



can be partition-sorted and re-merged into the sorted, de- 
sired product. 

ENDNOTES 

1 Barron. I, Diehr, G., "Sorting Algorithms for Micro- 
computers," BYTE, Vol. 8, No. 6, May 1983, 482 

2 Lorin, H., Sorting and Sort Systems, Addison Wesley, 
Reading, PA, 1975 

3 These sort problems were encountered and solved 
when developing the registration and records system 
of Jefferson Davis Junior College, Brewton, AL, using 
a TRS-80, Model II, and a hard disk (5 Meg). 

4 There are two peculiarities that should be noted when 
using the July 80 sort. First, if more than one sort is 
required in a program (as might be necessary for 
sorting disk files), the July 80 sort program must be 
reloaded. This is not really an inconvenience, but it was 
surprising to find that the sort self-destructed on the 
Model II. Second, the sort program has what looks like 
useless statements (like Z = which is later redefined) 
that are absolutely necessary. JQ 
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Musical Notes 



Extended Play with Orchestra-90 



By Bryan Eggers 
Software Affair 



Anyone who has owned an Orchestra-90™ music syn- 
thesizer for more than a few days will probably have written or 
collected several music files. Did I say "several"? Maybe I 
should have said "Several HUNDRED," especially if you 
have access to our Orchestra-90 SIG on CompuServe! 

Ever wonder if there is a way to load, compile and play 
more than a few files with one command? Perhaps you'd like 
ORCH-90 to play a two-hour concert! Tape users of ORCH-90 
can do this with an existing command, "GET@", which plays 
every file on one side of a tape cassette. We couldn't think of 
any way to improve on that! 

But, the disk version of Orchestra-90 handles multiple 
files a bit differently. The GET command allows several music 
files to be entered and played in "jukebox" fashion. This 
command automatically loads, compiles and plays a small 
number of music files. Here's an example: 

GET TUNE1 TUNE2 TUNE3 TUNE4 TUNE5 TUNE6 

You can fill up one entire line with filenames, but suppose 
you want to play more files than you can fit on one line? One 
way would be to rename the files with shorter filenames, 
possibly even with single letter filenames, like A, B and C, but 
a week later you'd never remember which file is which. 

A better way to play a large number of ORCH-90 files on 
a disk system would be to create an "Automatic Command 
Input File," more commonly referred to as a "job file," "chain 
file," or "BUILD file." This file would contain the names of all 
the music files on your disk(s). Theoretically, you would use 
the "DO" command from TRSDOS READY to execute the 
file, which in turn would run ORCH-90 and feed it your long list 
of filenames. 

However, if you've already tried this, you know it doesn't 
work! ORCH-90 completely ignores your job file. No com- 
mands are ever passed to ORCH-90's command line. That's 
because ORCH-90 takes over the normal TRS-80 keyboard 
routine and won't allow any inputs from a disk job file. Rather 
than spend time explaining the technical problems, let's 
move directly to the solution— a simple patch that takes only 
a few minutes! 

This patch will allow ORCH-90 to execute job files when 
run on TRSDOS 1 .3, allowing you to play as many files as 
your system will accommodate on line simultaneously! It's 
really a very small patch, but you should NOT patch your 
master copy of ORCH90/CMD! This patch affects some of 
the Edit commands, so we'll apply the patches to a backup 
copy and use it only for playing job files. 

To avoid confusing the two versions, create a backup 
copy with a different name. This backup will be made from 
I the master ORCH-90 program, VERSION 01.00.00. not a 
version already configured for a specific number of voices. 
The new file will be called PLAY90/CMD. At TRSDOS 
READY, type: 



COPY ORCH90/CMD Co PLAY90/CMD <ENTER> 

Then, carefully apply the following patches: 

PATCH PLAY90/CMD (ADD«62EA,FIND»D75C,CHG=0000) 

PATCH PLAY90/CMD (ADD=62F7 ,FIND-0E,CHG*16) 

PATCH PLAY90/CMD (ADD=6317 .FIND-CC2430 ,CHG=»CD2B00) 

PATCH PLAY90/CMD (ADD=6AD8,FIND=C8 ,CHG=C9) 

The result is PLAY90/CMD, a version of ORCH-90 
patched to accept input from job files. You can now create a 
job file that contains any number of music filenames in any 
order, and you can even use the same job file to CQjuit 
ORCH-90 and reconfigure it for a different number of voices 
before it plays the next song! 

PLAY90/CMD should only be used for playing job files, 
not for editing music files. This change in ORCH-90's key- 
board routine affects certain characteristics of the Edit func- 
tion. Continue using your regular ORCH90/CMD program for 
editing purposes. 

Each parameter actually passed to PLAY90 must be 
preceded by a SPACE (or any dummy character). Let's ex- 
amine a short job file. This syntax is for ORCH-90 used on 
TRS-80 Model 4 computer (in Model III mode on 
TRSDOS 1.3). 

PLAY90/CMD 

4 

N 

GETTUNE1 

GET TUNE2 

GETTUNE3 

GETTUNE4 

GETTUNE5 

GET TUNE6 

Q 
I saved this file to disk as MEDLEY/BLD. Create one just 
like it using SCRIPSIT, the BUILD command in TRSDOS, or 
any ASCII editor. Use your own music filenames instead of 
"TUNE1", "TUNE2", etc. Execute this job file from 
TRSDOS READY by typing: 

DO MEDLEY <ENTER> 

The first command in the job file is "PLAY90/CMD". This 
command invokes the actual music synthesizer and is sent 
directly to TRSDOS, so no leading space is required. 

Next, an initialization prompt displayed by PLAY90 asks 
for the NUMBER OF VOICES that ORCH-90 is to be confi- 
gured for. The "4" in our job file supplies the answer to that 
question. This could be 3, 4 or 5 voices. The last prompt asks 
if we want to save the program, and we answer "N" to that 
one. These commands are accepted and executed so fast 
that you'll miss them if you blink! 

Next comes the command "GET TUNE1". This com- 
mand appears on PLAY90's command line and will be exe- 
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cuted just as if you had typed it in yourself. PLAY90 will load, 
compile and play the music file TUNE1/ORC, then request 
the next command in our job file, "GET TUNE2" 

After TUNE6 (the last song in our file) has been played, 
our job file sends a "Q" to PLAY90. This tells ORCH-90 to 
fgDuit and return to TRSDOS READY. 

If PLAY90 can't find a music file on your system, or if a 
music file won't compile properly, the job won't "bomb out." 
PLAY90 will execute the next job file command. This means 
that your music will never stop until the last file is played, but it 
also means that a song will be skipped if you spelled the 
filename wrong or if it won't compile properly. Check your job 
file carefully. With a few dozen files on line, you might not 
notice that one is being skipped each time! 

If you press the QD key while a song is playing, the next 
command in the job file will be executed immediately. 

Suppose that you have some 4 voice arrangements and 
some 5 voice arrangements. As you know, ORCH-90 always 
sounds best when configured for the correct number of 
voices. Here's a job file that will load PLAY90, configure it for 4 
voices, play several 4 voice songs, then go back to 
TRSDOS READY, load PLAY90, configure for 5 voices, and 
play several 5 voice arrangements! 

PLAY90/CMD 
4 
N 

GETTUNE1 
GET TUNE2 
GETTUNE3 
GETTUNE4 
GETTUNE5 
GETTUNE6 
Q 

PLAY90/CMD 
5 
N 

GETTUNE7 
GETTUNE8 
GETTUNE9 
GET TUNE10 
GETTUNE11 
GETTUNE12 
Q 

NOTE TO MODEL III USERS 

Your job file needs to answer the "FAST CLOCK" prompt 
before the "VOICES 3/4/5" prompt appears. Your file should 
contain an "N" immediately after the "PLAY90/CMD" com- 
mand like this: 
FAST CLOCK 
PLAY90/CMD 

N 

4 

N 

GETTUNE1 

GET TUNE2 

GET TUNE3 

GETTUNE4 

GET TUNE5 

GET TUNE6 

Q 



ORCHUTIL/CMD 

One of these days someone will ask you to transfer all the 
files on your disk to their cassette. When that happens, you 
will thank me for this next patch! A disk-to-cassette transfer 
like this requires the ORCHUTIL/CMD program that you 
received with your ORCH-90, plus a considerable amount of 
time and patience, especially if two or three dozen files are 
involved. 

To keep your friendship intact, we'll make ORCHUTIL 
accept job file commands, too. You'll be able to insert any 
number of filenames into a job file then and sit back while 
ORCHUTIL does all the disk-to-cassette file transfers for you. 

To avoid patching the original copy of ORCHUTIL/CMD, 
we'll create a backup copy and name it UTIL/CMD. At 
TRSDOS READY type: 

COPY ORCHUTIL/CMD Co UTIL/CMD// (ENTER// ) 

Then, carefully apply the following patches: 



PATCH UTIL/CMD (ADD-5A9D, FIND=9554 ,CHG=0000 ) 
PATCH UTIL/CMD (ADD=5AA8 .FIND-06 .CHG-0C) 
PATCH UTIL/CMD (ADD-5AC1 , FIND=2430 ,CHG=2B00) 

We now have a new copy of ORCHUTIL called 
UTIL/CMD that will accept job commands from a disk file. The 
job file syntax will be a bit different because UTIL/CMD ac- 
cepts single keystroke commands using the IN KEYS func- 
tion. In other words, Center is not required after most 
commands. Also, no leading spaces are required. I'll give 
you a sample job file and you can create your own by insert- 
ing the actual music filenames. This is the format: 

UTIL/CMD 

OH 

RTUNE1 

WTUNE1 

RTUNE2 

WTUNE2 

RTUNE3 

WTUNE3 

Q 

Let's call this one TRANSFER/BLD. Make sure your 
disks are inserted and that your cassette player has a blank 
cassette inserted and is in RECORD mode. Then, execute 
your file from TRSDOS READY by typing: 

DO TRANSFER <ENTER> 

The first line in the job file runs our UTIL/CMD program. 
The next line contains the characters "OH". Two commands 
are actually being sent in this one line because of the INKEY$ 
function. The"0" tells UTIL/CMD that you want to change the 
Output option of program. The "H" selects High Speed (1 500 
baud tape cassette). UTIL/CMD is now configured to K ead 
music files from disk and CWlrite them to cassette at 
1500 baud. 

Our next step is to CfEead a music file from disk. We use 
the command "RTUNE1" in our job file. Again, two com- 
mands are passed in a single line. The "R" tells UTIL/CMD 
that you want to CEjead a file into memory, and "TUNE1" 
supplies the filename. 

The next line in our job file is "WTUNE1 " which contains 
a "W" to Cwjrite the file to cassette, followed by the tape 
filename "TUNE1". A word of caution here— don't forget that 
disk files can contain up to 8 characters while tape filenames 
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can contain only 6 characters. You must follow the rules for 
standard tape filenames. 

The job file then Reads and Writes the TUNE2 and 
TUNE3 music files, and ends the session by sending a "Q". 
This tells PLAY90 to ODuit and return to TRSDOS READY. 

Orchestra-90 is a trademark of Software Affair, Ltd. 



Line Printer V Print 
Codes 



Mary Oram 

Lago Vista Business Services, Inc. 

13 PoeCove, Unit #1-E 

Lago Vista, TX 78641 



I am not a proficient programmer. My company uses 
numerous packaged Radio Shack software programs, but 
other than copying some simple fun programs from your 
magazine, my expertise in programming is quite limited. 

Last spring we bought a DMP-500 printer. We already 
had two Daisy Wheel printers, and we were accustomed to 
changing the pitch of the printing by flipping a switch or 
changing the style by changing the print wheel. However, 
changing the print on the DMP-500 was not quite so simple. It 
was my understanding that while the DMP-500 was on, the 
style and pitch of the printing had to be changed via software 
print codes. And since none of the programs we were using 
provided for sending print codes to the printer from software, 
my employees and I were forever going back to the manual 
to look up the print codes for the style we wished to use. 
PRNTCODE is a simple program I wrote which allows multi- 
ple choice selection of print code options available on the 
DMP-500. It first changes the CRT print to large size. It then 
reminds the operator to be sure that the printer is ready to be 
programmed. Next it asks the operator to select one of five 
print styles and allows her to print a sample of the style she 
has chosen. It then asks if the operator would like to have the 
printing elongated or bold printed and again allows for a 
sample. Finally, when "Q" is pressed, it returns the print to 
normal, rolls the paper up to the beginning of the next page, 
and returns to TRSDOS. We have found this little program to 
be quite a time saver for switching from 12 to 10 to 16 
characters per inch in the course of changing from one 
program to another. I think others might find it to be of some 
benefit. 

10 REM *** =«"=-=========«================= *** 

20 REM *** "PRNTCODE" *** 

30 REM *** A PROGRAM WRITTEN BY MARY ORUM FOR *** 
40 REM *** LAGO VISTA BUSINESS SERVICES, INC. *** 
50 REM *** FOR SELECTING PRINT OPTIONS ON THE *** 
60 REM *** RADIO SHACK DMP 500 PRINTER *** 
70 REM *** »••••■••■•«■•■»••»»•««»■•■■■««-■»• *** 
80 CLS 

: PRINT CHR$(31) 
90 PRINT "BE SURE THE PRINTER IS LOADED WITH PAPER" 
100 PRINT "AND THAT THE LINE SWITCH IS 'ON'." 
110 PRINT 

: PRINT 



PRINT 
PRINT 
PRINT 
120 PRINT "BE SURE TO PRESS THE RESTART BUTTON." 
130 PRINT 

PRINT 
PRINT 
PRINT 
PRINT 
140 PRINT "PRESS 'Y' WHEN READY." 
150 PRINT 

PRINT 
PRINT 
PRINT 
PRINT 
160 INPUT "NOW"; X$ 
170 IF X$ - "Y" THEN 180 

: ELSE 160 
180 LPRINT CHR$(27) CHR$(15) 

: LPRINT CHR$(27) CHR$(32) 
190 CLS 

200 PRINT "CHOOSE ONE OF THE FOLLOWING OPTIONS:" 
PRINT 
PRINT 
PRINT 
PRINT 
210 PRINT "A. 

"PRINT 
220 PRINT "B. 
: PRINT 
230 PRINT "C. 
: PRINT 
240 PRINT "D. 
: PRINT 
250 PRINT "E. 
PRINT 
PRINT 
PRINT 
PRINT 
260 INPUT "WHICH OPTION"; 
270 CLS 

280 PRINT "DO YOU WANT A 
: PRINT 
: PRINT 
290 INPUT "PRINT YOU HAVE CHOSEN — Y OR N' 
300 IF N$ - "A" THEN 350 
310 IF N$ - "B" THEN 390 
320 IF N$ - "C" THEN 430 
"D" THEN 470 
"E" THEN 510 
350 LPRINT CHRSC27) CHR$(19) 
360 IF A$ - "Y", THEN 370 ELSE 550 
370 LPRINT "This is an example of normal or default 

printing." 
380 LPRINT "This printing has ten (10) characters per 
inch." 
LPRINT 
LPRINT 
LPRINT 
GOTO 550 
390 LPRINT CHR$(27) CHR$(23) 
400 IF AS - "Y" THEN 410 ELSE 550 
410 LPRINT "This is an example of compressed 

printing." 
420 LPRINT "This printing has twelve (12) characters 
per inch." 
LPRINT 
LPRINT 
LPRINT 
GOTO 550 
430 LPRINT CHR$(27) CHR$(20) 
440 IF A$ - "Y" THEN 450 

: ELSE 550 
450 LPRINT "This is an example of condensed 
printing." 



330 IF N$ 
340 IF N$ 



NORMAL — 10 CHARACTERS PER INCH 
COMPRESSED — 12 CHARACTERS PER INCH" 
CONDENSED — 16 CHARACTERS PER INCH " 
CORRESPONDENCE — LETTER QUALITY 
PROPORTIONAL SPACING 

SAMPLE OF THE" 

AS 
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460 


LPRINT "This printing has sixteen (16) characters 




per inch." 






LPRINT 






LPRINT 






LPRINT 






GOTO 550 


470 


LPRINT CHR$(27) CHR$(18) 


480 


IF A$ - "Y" THEN 490 ELSE 550 


490 


LPRINT "This is an example of correspondence 




quality printing." 


500 


LPRINT "This printing has ten (10) characters per 




inch ." 






LPRINT 






LPRINT 






LPRINT 






GOTO 550 


510 


LPRINT CHR$(27) CHR$(17) 


520 


IF A$ ■ "Y" THEN 530 ELSE 550 


530 


LPRINT "This is an example of proportional 




pr int ing . " 


540 


LPRINT "This printing has different spacing 




allotted for each letter." 






LPRINT 






LPRINT 






LPRINT 






GOTO 550 


550 


CLS 


560 


PRINT "WHAT DO YOU WANT TO DO WITH THE" 




: PRINT 


570 


PRINT "PRINTING?" 






PRINT 






PRINT 






PRINT 






PRINT 


580 


PRINT "A. ELONGATION" 




: PRINT 


590 


PRINT "B. BOLD PRINTING" 




: PRINT 


600 


PRINT "C. NOTHING" 






PRINT 






PRINT 






PRINT 






PRINT 


610 


INPUT "WHICH OPTION"; B$ 


620 


CLS 


630 


IF B$ ■= "C" THEN 730 


640 


INPUT "DO YOU WANT A SAMPLE — Y OR N" ; C$ 


650 


IF B$ = "A" THEN 670 


660 


IF B$ ' "B" THEN 700 


670 


LPRINT CHR$(27) CHR$(14) 


680 


IF C$ ■ "Y" THEN 690 ELSE 730 


690 


LPRINT "This is an example of elongated 




print ing . " 






LPRINT 






LPRINT 






LPRINT 






GOTO 730 


700 


LPRINT CHR$(27) CHR$(31 ) 


710 


IF C$ ■ "Y" THEN 720 ELSE 730 


720 


LPRINT "This is an example of bold printing." 






LPRINT 






LPRINT 






LPRINT 






GOTO 730 


730 


CLS 


740 


PRINT "PRESS 'Q' TO RETURN TO TRSDOS." 






PRINT 






PRINT 






PRINT 






PRINT 


750 


INPUT "ALL DONE"; Y$ 


760 


IF Y$ - "Q" THEN PRINT CHR$(30) 






SYSTEM "FORMS T" 






SYSTEM 






■ ELSE 750 JO 



Is There a Name in Your 
Phone Number? 

by Randy Rife 

This program for the Model 1 2 takes a seven-digit phone 
number and converts it to its alphabetic equivalents. 

This all started as an easy way of remembering phone 
extensions in our office. (We have BUDI, BETI, CUDL. and 
even a BRAT on our floor.) Soon I was asked to make the 
program work on complete phone numbers. Converting the 
program from four to seven digits was easy, but the possible 
combinations went from 81 to 2. 1 87! Because of this, I added 
the ability to print out the results on a printer. 

Running the program is easy. Start by entering the 
phone number (use no spaces or dashes) and press CJD (for 
screen) or CEJ (for Printer). If you select Printer, press QD (for 
yes) or CbC (for no) at "Pause between pages?" When the 
program is finished listing all of the combinations, it will return 
to where you enter the phone number. Press C BR~EXiC to 
exit or enter a new phone number to rerun the program. 

There is a problem with ones and zeroes since there are 
no letters on the telephone dial that correspond to them. 
Therefore, this program will display (or print) a one or a zero 
instead of a letter. 

Although written on a Model 12, this program should 
work without modifications on a Model II or Model 16. 
Changing SYSTEM"T" in lines 620 and 650 to LPRINT 
CHR$(12) should be the only changes needed for Models 1/ 
III/4. Change the LPRINTs to PRINT#-2s for the Color 
Computer. 

100 REM *** CONVERT PHONE NUMBERS TO TEXT *** 
110 REM *** WRITTEN SEPT 1983 BY RANDY RIFE *** 
120 DATA 0, 1, ABC, DEF, GHI , JKL, MNO, PRS , TUV , WXY 
130 FOR X=0 TO 9 
READ N$(X) 
NEXT X 
CLS 
140 INPUT "Enter your phone number (7 digits, no 

dash) "; PH$ 
150 IF LEN(PH$) <> 7 THEN 140 
160 P1=VAL(MID$(PH$,1 ,1)) 

: P2=VAL(MID$(PH$,2,1)) 

: P3=VAL(MID$(PH$,3,1)) 
170 P4=VAL(MID$(PH$,4,D) 

: P5=VAL(MID$(PH$,5,1)) 

: P6=VAL(MID$(PH$,6,D) 
180 P7=VAL(MID$(PH$,7,D) 

190 PRINT "Print on the Screen or Printer (S/P)? "; 
200 N$»INK£Y$ 

: IF N$="" THEN 200 
210 IF N$="P" OR N$="p" THEN PRINT "PRINTER" 

: GOTO 510 
220 IF N$="S" OR N$="s" THEN PRINT "SCREEN" 

: GOTO 310 
230 GOTO 200 

300 REM *** PRINT TO THE SCREEN *** 
310 FOR Xl-1 TO LEN(N$(Pl)) 

: FOR X2=l TO LEN(N$(P2)) 

: FOR X3=l TO LEN(N$(P3)) 
320 FOR X4=l TO LEN(N$(P4)) 

: FOR X5-1 TO, LEN(N$(P5)) 

: FOR X6-1 TO LEN(N$(P6)) 
330 FOR X7-1 TO LEN(N$(P7)) 
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THEN PRINT "YES" 
IHEN PRINT "NO" 



340 PRINT MID$(N$(P1), XI, 1); MID$(N$(P2) ,X2 , 1) ; 

MID$(N$(P3),X3,1) ; 
350 PRINT MID$(N$(P4),X4,1); MID$(N$(P5) ,X5 , 1 ) ; 

MID$(N$(P6),X6,1); 
360 PRINT MID$(N$(P7),X7,1), 
370 NEXT X7,X6,X5,X4,X3,X2,X1 
380 PRINT 

: PRINT 
: GOTO 140 
500 REM *** PRINT ON THE PRINTER *** 
510 PRINT "Pause between pages (Y/N)? "; 
520 PS$-INKEY$ 

: IF PS$="" THEN 520 
530 IF PS$-"Y" OR PS$="y 
540 IF PS$="N" OR PS$="n 
550 PG-0 

: L-0 

: GOSUB 720 
560 FOR Xl-1 TO LEN(N$(Pl)) 

FOR X2-1 TO LEN(N$(P2)) 
FOR X3-1 TO LEN(N$(P3)) 
FOR X4-1 TO LEN(N$(P4)) 
570 FOR X5-1 TO LEN(N$(P5)) 

: FOR X6-1 TO LEN(N$(P6)) 
: FOR X7-1 TO LEN(N$(P7)) 
580 LPRINT MID$(N$(P1),X1,1) ; 

MID$(N$(P3),X3,1); 
590 LPRINT MIDS(N$(P4),X4,1); 

MID$(N$(P6),X6,1); 
600 LPRINT MID$(N$(P7),X7 
610 C-C+l 

IF C-5 THEN LPRINT 

L-L+l 
620 IF L-50 THEN L=0 

: SYSTEM"T" 

: GOSUB 710 
NEXT X7, X6, X5, X4 , X3, X2, XI 
LPRINT 

: LPRINT 

: LPRINT "END OF LISTING" 
SYSTEM"T" 

: PRINT 

: GOTO 140 
REM *** PRINT HEADER *** 
IF PS$-"Y" OR PS$-"y" THEN GOSUB 810 
PG=PG+1 
LPRINT "PHONE NUMBER = "LEFT$(PH$ , 3)" - 

"RIGHT$(PH$,4);TAB(70)"PAGE"PG 
LPRINT 

: RETURN 
R£M *** PAUSE BETWEEN PAGES *** 
PRINT "Press <SPACEBAR> for next page or <Q> to 

quit" 



MID$(N$(P2),X2,1); 
MID$(N$(P5),X5,1); 



1) 



630 
640 



650 



700 
710 
720 
730 

740 

800 
810 



820 

830 
840 
850 



N$-INKEY$ 
: IF N$-' 
IF N$-" " 
IF N$«"Q" 
GOTO 820 



" THEN 820 

THEN RETURN 

OR N$-"q" THEN RUN 



PATCH Files for the 
Model II 



Alexander B. Spencer 
7708 Turnberry Lane 
Dallas, TX 75248 



I use this short program for maintaining my file of 
patches. The patches are built into DO files and executed by 
the DO command. Each file begins with a CLS command to 
clear the screen followed by a PAUSE statement that identi- 



fies the patch. All patches that I might wish to reverse from 
time to time are appended with the reverse patch preceded 
by CLS and PAUSE statements to clear the screen and 
identify them. To use, the DO file is executed down through 
the desired patch and execution terminated by f B R e ak 

All "fix" type patches for a given program are combined 
into a single file for convenience in transferring them from disk 
to disk and to conserve directory space. I put a copy of each 
patch applied on the disk and thereby have a record of 
patching to programs on that disk. (These files are short and 
use little space.) 

I have reserved a disk solely for my patch files and the 
patch file maintenance program. This disk is, of course, ap- 
propriately backed up as good practice demands. 

I have included in the program menu a command that I 
have found very convenient when using the Daisy Wheel II 
printer with tractor feed. It is a form feed command that 
quickly allows feeding printed pages past the tractor mecha- 
nism of the DW II for easy removal. I now include it in the 
menu of most of my programs including the user menus of 
Profile II and Profile + . It can easily be added to menus of 
BASIC programs such as General Ledger. 



10 

20 

30 

40 

50 

60 

70 

80 

90 

100 

110 

120 

130 

140 

150 

160 

170 

180 

190 



REM 

********** 

REM 
REM 



********** PROGRAM 'PFILE 



* BY ALEXANDER B SPENCER 



REM * PATCH FILE DIRECTORY 

REM * FILES CREATED BY 'BUILD' 

REM * FILES EXECUTED BY 'DO' 

REM * FILE NAMES OF FORM 'PATCHnn' 

REM WHERE 'nn' IS TWO DIGIT NUMBER 

REM * FIRST 'PAUSE' USED AS TITLE 

REM * REQUIRES -F:l 

REM * VERSION 1.2 (07/15/82) 

CLEAR 500 
GOTO 240 

REM ***** MISC SEQUENCES ***** 
LPRINT CHR$(12); 

: RETURN 
PRINT TAB(30)CHR$(26) ;A$;CHR$ (25 ) ;B$ 

: PRINT 

: RETURN 
200 PRINT? (23,32),STRING$(30," "); 
210 PRINT@ (23, 32), "KEY TO CONTINUE ";CHR$(01) 
220 Z$-INKEY$ 

: IF Z$-"" THEN 220 ELSE RETURN 
230 ' 

240 REM ***** MENU ***** 
250 CLS 

: PRINT CHR$(02) 
260 PRINT TAB (28) "-PATCH FILE MAINTENANCE-" 

: PRINT 

: PRINT 
270 PRINT TAB(38)"MENU" 

: PRINT 
280 A$-"l" 

: B$»" DISPLAY DIRECTORY" 

: GOSUB 190 
290 A$-"2" 

: B$»" PRINT DIRECTORY" 

: GOSUB 190 
300 A$-"3" 

: B$=" DISPLAY FILES" 

: GOSUB 190 
310 A$«"4" 

: B$»" PRINT FILES" 

: GOSUB 190 
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320 A$="5" 

: B$=" DISPLAY FILE" 
: GOSUB 190 
330 A$="6" 

: B$=" PRINT FILE" 
: GOSUB 190 
340 A$-"7" 

: B$»" FORM FEED" 
: GOSUB 190 
350 A$-"0" 

: B$=" EXIT" 
: GOSUB 190 
360 GOSUB 200 
370 Z=VAL(Z$) 
380 IF Z$="0" THEN CLOSE 
: CLS 
: END 
390 ON Z GOSUB 410,570,750,900,1060,1220,180 

: GOTO 240 
400 ' 

410 REM ***** DISPLAY DIRECTORY ***** 
420 CLS 

: PRINT CHR$(02); 
430 PRINT TAB(29)"-PATCH FILE DIRECTORY-" 
440 ON ERROR GOTO 540 
450 1 = 1 
460 F$-"PATCH" + RIGHT$("00" ♦ RIGHT$(STR$( I) 

LEN(STR$(I))-1),2) 
470 PRINT 

: OPEN "I",l, F$ 
480 LINE INPUT #1 ,IN$ 
490 IF MID$(IN$,2,5)="PAUSE" THEN X-7 

: GOTO 520 
500 IF MID$(IN$,1,5)-"PAUSE" THEN X=6 

: GOTO 520 
510 GOTO 480 

520 PRINT F$;" " ;RIGHT$( IN$ ,LEN( IN$)-X) ; 
530 CLOSE 

: I-I+l 
: GOTO 460 
540 CLOSE 

: RESUME 550 
550 ON ERROR GOTO 
: GOSUB 200 
: RETURN 
560 ' 

570 REM ***** PRINT DIRECTORY ***** 
580 CLS 

: PRINT CHR$(02); 
590 PRINT TAB(31)"-PRINTING DIRECTORY-" 

: PRINT TAB(40)CHR$(01); 
600 LPRINT TAB(29)"-PATCH FILE DIRECTORY-" 
610 ON ERROR GOTO 720 
620 1-1 
630 F$="PATCH" + RIGHT$("00"+RIGHT$(STR$(I) , 

LEN(STR$(I))-1),2) 
640 LPRINT 

: OPEN "I",l, F$ 
650 IF EOF(l) THEN CLOSE 

: RESUME 730 
660 LINE INPUT #1,IN$ 
670 IF MID$(IN$,2,5)="PAUSE" THEN X=7 

: GOTO 700 
680 IF MID$(IN$,1,5)="PAUSE" THEN X=6 

: GOTO 700 
690 GOTO 660 

700 LPRINT F$;" " ;RIGHT$( IN$ ,LEN( IN$)-X) ; 
710 CLOSE 

: I-I+l 
: GOTO 630 
720 CLOSE 

: LPRINT CHR$(12) 
: RESUME 7 30 
730 ON ERROR GOTO 

: RETURN 
740 ' 



750 REM ***** DISPLAY PATCH FILES ***** 
760 CLS 

: PRINT CHR$(02) ; 
770 ON ERROR GOTO 870 
780 1=1 

790 PRINT TAB(28)"-LISTING OF PATCH FILE-" 
: PRINT 
: PRINT 
800 F$="PATCH" + RIGHT$("00"+RIGHT$(STR$(I), 

LEN(STR$(I))-1),2) 
810 PRINT 

PRINT 

OPEN "I",l , F$ 
PRINT TAB(36)F$ 
PRINT 

820 IF EOF(l) THEN CLOSE 
1 = 1 + 1 
GOSUB 200 
CLS 

PRINT CHR$(02) 
GOTO 790 
830 LINE INPUT #1 ,IN$ 

840 IF ASC(LEFT$(IN$,1))=208 THEN PRINT 
RIGHT$(IN$,LEN(IN$)-1) 
: J=l 

: GOTO 820 
850 PRINT IN$ 
860 GOTO 820 
870 CLOSE 

: RESUME 880 
880 RETURN 
890 ' 

900 REM ***** PRINT PATCH FILES ***** 
910 CLS 

: PRINT CHR$(02); 
920 PRINT TAB(30) "-LISTING PATCH FILES-" 

: PRINT TAB(40)CHR$(01); 
930 LPRINT TAB(28)"-LISTING OF PATCH FILES-" 
940 ON ERROR GOTO 1030 
950 1=1 
960 F$=" PATCH" + 

RIGHT$("00"+RIGHT$(STR$(l),LEN(STR$(I))-l),2) 
970 LPRINT 

LPRINT 

OPEN "I",l, F$ 
LPRINT TAB(36)F$ 
LPRINT 

980 IF EOF(l) THEN CLOSE 
: 1=1+1 
: GOTO 960 
990 LINE INPUT #1 ,IN$ 

1000 IF ASC(LEFT$(IN$,1))=208 THEN LPRINT 
RIGHT$(IN$,LEN(IN$)-1) 
: J=l 

: GOTO 980 
1010 LPRINT IN$ 
1020 GOTO 980 
1030 CLOSE 

: RESUME 1040 
1040 LPRINT CHR$(12) 

: RETURN 
1050 ' 

1060 REM ***** DISPLAY PATCH FILE ***** 
1070 CLS 
1080 PRINT TAB(5); 

: LINE INPUT "DISPLAY FILE NUMBER ";I$ 
1090 CLS 

: PRINT CHR$(02) 
1100 F$="PATCH"+RIGHT$("00"+I$,2) 
1110 PRINT TAB(28)"-LISTING OF ";F$;"-" 

: PRINT 
1120 ON ERROR GOTO 1190 
1130 PRINT 

PRINT 

OPEN "I",l, F$ 

PRINT TAB(36)F$ 



26 



TRS-80 Microcomputer News. February 1984 



: PRINT 
1140 IF EOF(l) THEN 119(1 
1150 LINE INPUT #1 ,IN$ 
1160 IF ASC(LEFT$(IN$,l))-208 THEN PRINT 

RIGHT$(IN$,LEN(IN$)-1) 

: GOTO 1140 
1170 PRINT IN$ 
1180 GOTO 1140 
1190 CLOSE 

: RESUME 1200 
1200 GOSUB 200 

: RETURN 
1210 ' 

1220 REM ***** PRINT PATCH FILE ***** 
1230 CLS 
1240 PRINT TAB(7); 

: LINE INPUT "LIST FILE NUMBER ";I$ 
12 50 CLS 

: PRINT CHR$(02) 
1260 F$-"PATCH"+RIGHT$("00"+I$,2) 
1270 PRINT TAB(32)"-LISTING ";F$;"-" 

: PRINT TAB(40)CHR$(01); 
1280 LPRINT TAB(28)"-LISTING OF ";F$;"-" 
1290 ON ERROR GOTO 1360 
1300 LPRINT 

: LPRINT 

: OPEN "I",l, F$ 
1310 IF EOF(l) THEN 1360 
1320 LINE INPUT #1,IN$ 
1330 IF ASC(LEFT$(IN$,1))»208 THEN LPRINT 

RIGHT$(IN$,LEN(IN$)-1) 

: J-l 

: GOTO 1310 
1340 LPRINT IN$ 
1350 GOTO 1310 
1360 CLOSE 

: RESUME 1370 
1370 LPRINT CHR$(12) 

: RETURN 
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Cursive Printing with the 
Model II and the LP V 



Pete Giovagnoli 

4200 N.E. Birmingham Rd. 

Kansas City, MO 64117 



The START routine allows for entry and later change of 
data in a file called LETTER with a recordlength of ten. In line 
60 the program asks you to input R. R is the consecutive 
record number entered (R = 1 , R = 2, R = 3 R = N). 

Letters each take up ten records. Since the record length 
is ten, the letters are actually printed in a 1 x 1 grid. A starts 
•at record 1, B starts at record 11, C starts at record 21, 
D starts at record 31 and so on. The punctuation characters 
(! . ? , space) follow the alpha characters. If you need to make 
a change to a letter, load and run START and at INPUT R do 
the following: 

Find the record number of the character you want to 

change. 

Count to the line of print in that letter starting at 0. Add this 

to the starting record number to get the record in the 

letter you want to change. After you put this in as R, you 

are ready to change the line so it is correct. 

The data being entered is stored as L$ in the file. 



START 

10 ' ROUTINE TO CREATE, AND INPUT DATA TO, THE 'LETTER' FILE 

20 ' PETE GIOVAGNOLI 1983 

30 ' RUN THIS ROUTINE FIRST 

40 OPEN"D",l, "LETTER", 10 

50 FIELD 1 ,10 AS LS 

60 INPUT "INPUT R";R 

70 INPUT XS 

80 LSET L$-X$ 

: PUT 1 ,R 
90 GOTO 60 

CURSIVE accesses the file named LETTER created by 
START and prints the cursive characters. First the program 
sets the printer to the graphics printing mode. Next, it asks for 
a message (M$). After you enter the message, the program 
checks the length of the message to see if it is too long. If the 
message is too long, the program asks for another message. 
Then it finds the length of your message again (T$). It sets up 
a loop (FOR T1 = 1 TO T) to find each letter of the message. 
Each letter is stored in N$. 

Next, it looks through the list of letters to find the correct 
one. The starting record (X) for that letter is found and used in 
a GET 1 ,X statement later. First though it must add C to X to 
make sure it has the correct record. This procedure is like the 
one explained for changing letters in the LETTER file. 

Then the program sets up a loop (FOR V = 1 TO 10) to 
analyze the 1 $ in record X. In this loop, 0$ = MID$(L$,V, 1 ) will 
return a number - 5. It prints a graphics character for each 
number. 

- space 

1 = ■ 

2 = V 

3 = A 

4 = ^ 

5 - k 

After it has completed ten loops, it will do a NEXT T1 to 
get the next letter. After all letters are completed, it does a 
CHR$ (1 0) which is a line feed, adds 1 to C, and checks to see 
what C is. If C is anything but 1 0, it will go back to 60 and print 
the next line of each letter in the message. In this manner, all 
first lines of letters are printed in a row, then all second lines, 
etc. until all lines are printed (C will equal 10.) 

Finally, it will ask for ANOTHER LINE (Y/N)?. If you say N, 
it will ask for ANOTHER MESSAGE (Y/N)?. If you answered Y 
to ANOTHER LINE, it would have gone back to the beginning 
of the program and asked for the next message. If you 
answer Y to ANOTHER MESSAGE, the program will space 
the printer to the top of the next page, go back to the begin- 
ning, and ask for a new message. If you answer N, it will go 
back to regular printing, close the file LETTER, and end. 

10 ' CURSIVE PRINTING ROUTINE FOR LP V AND MODEL II 

20 ' PETE GIOVAGNOLI 

30 ' RUN ONLY AFTER ALL DATA HAS BEEN ENTERED 

40 CLS 

50 0PEN"D",1, "LETTER", 10 

60 FIELD 1 ,10 AS LS 

70 LPRINT CHR$(27);CHR$(28) 

80 PRINT@350, "*** CURSIVE***" 

90 PRINT0960, "THIS PROGRAM WILL PRINT OUT ANY 

MESSAGE OF UP TO 13 CHARACTERS (ON ONE LINE) YOU 

PUT IN. MORE LINES MAY BE ADDED LATER." 
100 INPUT "ENTER YOUR MESSAGE" ;M$ 

: C«0 
110 IF LEN(M$)-14 OR LEN(M$) > 14 THEN PRINT "ONLY 13 

CHARACTERS, GREEDY!" 

: GOTO 100 
120 T-LEN(M$) 
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130 FOR Tl 


-1 


TO T 






N$« 


MD$(M$,T1,1) 


140 IF 


NS = 


'A' 


THEN 


X-l 


150 IF 


N$- 


'B' 


THEN 


X-ll 


160 IF 


NS- 


'C 


THEN 


X-21 


170 IF 


N$- 


'D' 


THEN 


X-31 


180 IF 


N$- 


'E' 


THEN 


X-41 


190 IF 


N$- 


'F' 


THEN 


X-51 


200 IF 


N$- 


'G' 


THEN 


X-61 


210 IF 


N$- 


'H' 


THEN 


X-71 


220 IF 


N$- 


'I' 


THEN 


X-81 


230 IF 


N$- 


'J' 


THEN 


X-91 


240 IF 


N$- 


'K' 


THEN 


X-101 


250 IF 


N$- 


'L' 


THEN 


X-lll 


260 IF 


N$- 


'M' 


THEN 


X-121 


270 IF 


N$- 


'N' 


THEN 


X-131 


280 IF 


N$- 


'0' 


THEN 


X-141 


290 IF 


N$- 


■ p. 


THEN 


X»151 


300 IF 


N$- 


'Q' 


THEN 


X-161 


310 IF 


N$- 


'R' 


THEN 


X=171 


320 IF 


N$- 


S' 


THEN 


X-181 


330 IF 


N$= 


T 


THEN 


X-191 


340 IF 


N$- 


'U' 


THEN 


X=201 


350 IF 


N$» 


V 


THEN 


X-21 1 


360 IF 


N$ = 


w 


THEN 


X-221 


370 IF 


N$- 


'X' 


THEN 


X=231 


380 IF 


NS- 


lyl 


THEN 


X-241 


390 IF 


N$ = 


'V 


THEN 


X=251 


400 IF 


N$- 


' ?' 


THEN 


X=261 


410 IF 


NS- 


'.' 


THEN 


X-271 


420 IF 


NS- 


• 1 • 


THEN 


X-281 


430 IF 


N$- 


',' 


THEN 


X-291 


440 IF 


N$- 


• ' 


THEN 


X-301 


450 X-X+C 








460 GET 1 , 


( 






470 FOR V- 


TO 10 





480 0$=MID$(L$,V,1) 

490 IF O$="0" THEN LPRINT CHRS(224) 
500 IF 0S="1" THEN LPRINT CHR$(239); 
510 IF 0$-"2" THEN LPRINT CHR$(251); 
520 IF 0$="3" THEN LPRINT CHR$(252); 
530 IF 0S""4" THEN LPRINT CHR$(253); 
540 IF 0S="5" THEN LPRINT CHR$(254); 
550 NEXT V 
560 NEXT Tl 

: LPRINT CHR$(10) 
570 C=01 

580 IF C=10 THEN 600 
590 GOTO 130 

600 INPUT "WOULD YOU LIKE ANOTHER LINE"; LIS 
610 IF LI$-"Y" THEN 100 
620 CLS 

: PRINTG960, "WOULD YOU LIKE ANOTHER MESSAGE" 

: INPUT NME$ 
630 IF NME$-"Y" THEN CLS 

: SYSTEM "FORMS T" 

: GOTO 80 
640 LPRINT CHR$(10) 

: LPRINT CHR$(27);CHR$(54) 
650 CLOSE 
660 END 

If you don't want to have to create your own character set 
you can run to program below to get Mr. Giovagnoli's charac- 
ters. After running the program below then run the CURSIVE 
program. 

10 T-0 

20 OPEN "D",l ."LETTER" ,10 

30 FIELD 1 , 10 AS LS 

40 IF T-310 THEN END 

50 READ LIS 

60 LSET L$-L1$ 

70 T-T+l 

80 POT 1,T 

90 GOTO 40 

100 DATA 0000315000, 0003201000, 0032001000, 

0320001000, 0100001000 
110 DATA 0100001000, 0100001000, 0100001000, 

0450031503, 0041120412 
120 DATA 0000111500, 0003100450, 0032100010, 

1120100010, 0000100320 
130 DATA 0000104150, 0000100010, 0000100010, 

0003200320, 0031111200 
140 DATA 0003115000, 0032004500, 0320030100, 

0100041200, 0100000000 



150 DATA 0100000000, 0100000000, 

0045000003, 0004111112 
160 DATA 0000311500, 0003200450, 

0001500310, 0001411210 
170 DATA 0001000010, 0001000010, 

1015000320, 4124111200 
180 DATA 0003115000, 0032004500, 

0045041200, 0004500000 
190 DATA 0031200000, 0320000000, 

0450000003, 0041111112 
200 DATA 3150000000, 1041111111, 

0000001000, 0000031200 
210 DATA 0000001000, 0011111110, 

0045001040, 0004112000 
220 DATA 3150003100, 1010032100, 

0010000100, 0010000100 
230 DATA 0010000100, 0411120100, 

3204503200, 2000412000 
240 DATA 0315000010, 0101000010, 

0001000010, 0001000010 
250 DATA 0001411111, 0001045010, 

0032000410, 0320000040 
260 DATA 0000031500, 0000320100, 

0000100100, 0000100100 
270 DATA 1110100100, 4500100100, 

0045011003, 0004124112 
280 DATA 0003115000, 0032001000, 

0010001320, 0045001200 

290 DATA 0004131000, 0000321000, 

0000101000, 0000412000 
300 DATA 0315000010, 0101000010 

0001003200, 0001112000 
310 DATA 0001450000, 0001045000 

0001000450, 0001000045 
320 DATA 0000315000, 0003201000 

0411120000, 0001000000 
330 DATA 0001000000, 0311500000 

1032045000, 4120004500 
340 DATA 3150000000, 1013153150, 

0010010001, 0010010001 
350 DATA 0010010001, 0010010001, 

0010000001, 0010000001 
360 DATA 3150000000, 1013115000, 

0010001000, 0010001000 
370 DATA 0010001000, 0010001000, 

0010004503, 0010000412 
380 DATA 0003115000, 0031004500 

0104500010, 0100411110 
390 DATA 0100000010, 0100000010, 

0045003200, 0004112000 
400 DATA 0000311500, 0031200450 

1201000010, 0001000010 
410 DATA 0001500320, 0001411200 

0001000000, 0001000000 
420 DATA 0003115000, 0031004500, 

0104500010, 0100411110 
430 DATA 0100000010, 0100000010, 

0045001150, 0004112042 
440 DATA 0000311500, 0031200450 

1201000010, 0001000010 
450 DATA 0001500320, 0001411200, 

0001004503, 0001000412 
460 DATA 0000315000, 0000101000, 

0000412000, 0000315000 
470 DATA 0003204500, 0411120100 

3204500100, 2000411200 
480 DATA 3150000000, 1041111110 

0000001000, 0000001000 
490 DATA 0000001000, 0011101000, 

0045001000, 0004112000 
500 DATA 3150000100, 1010000100 

0010000100, 0010000100 
510 DATA 0010000100, 0010000100, 

0045032103, 0004120412 
520 DATA 3150000003, 1045000032, 

0001000010. 0001000010 
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530 DATA 0001000010, 0001000010 

0000453200, 0000042000 
540 DATA 3150000003, 101 

0010010010, 0010010010 
550 DATA 0010010010, 001001 

0010315010, 0041204120 
560 DATA 3150000403, 1010000032 

0004503200, 0000412000 
570 DATA 0000315000, 0003204500 

0320000045, 3200000004 
580 DATA 0000000000, 3150001000 



0450000000, 
0001000010, 
3152000010, 
0010030100, 
0100000000, 
4200001000, 
0010001010, 
4111120100, 
0315000100, 
0421000010, 
0001004510, 
0000100100, 
0450453200, 
0010001032, 
0000101000, 
0421000320, 
0001004500, 
0001032000, 
3201450000, 
4212012045, 
0010010001, 
4212001000, 
0010001000, 
0321000450, 
0450000320, 
0321000010, 
0001000000, 
0321000450, 
0450415320, 
0321000010, 
0001045000, 
0000101000, 
0315000100, 
4200001000, 
0010001000, 
4210000100, 
0010003100, 
4121000010, 

0004500320, 
4110000010, 
0010010010, 
4245000320, 
0032000450, 
4010001000, 
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390 

600 
610 
620 
630 
6A0 
650 
660 
6/0 
680 
690 

700 

710 



0010001000. 0010031320 
DATA 0041121200, 0000031000 

0000101000, 0000412000 
DATA 0000000000, 0031150000 

0100323200. 0000132000 
DATA 0000410000, 0000315000 

0000101000, 0000412000 
DATA 0003115000, 0032004500 

0000003200, 0000312000 
DATA 0000100000, 0000100000 

0000000000, 0000100000 
DATA 0000000000, 0000000000 

0000000000. 0000000000 
DATA 0000000000, 0000000000 

0000110000, 0000110000 
DATA 0000000000, 0000111000 

0000111000, 0000111000 
DATA 0000412000, 0000010000 

0000000000, 0000010000 
DATA 0000000000, 0000000000 

0000000000, 0000000000 
DATA 0000000000, 0000000000 

0000110000. 0000320000 
DATA 0000000000. 0000000000 



DATA 0000000000. 0000000000 
0000000000, 0000000000 



1321000 
0320010000 

1101000 
110000100 

1100000 
0000000000 



0000110000 



20 READ A 

: POKE X,A 

: B = B + A 
30 NEXT 
40 IF B <> 1895 THEN PRINT "DATA ERROR" 

: STOP 
50 DATA 222,147,255,66,17,222,149,9,9 
60 DATA 32,3,254,66,17,223,147,57 
70 PRINT "1-EXEC 17152" 
80 PRINT "2-CLOAD(NEW PROGRAM)" 
90 PRINT "3-EXEC 17163 
100 PRINT "*LINE NOS . MUST BE HIGHER IN 2ND PROGRAM*" 

For you assembly language programmers. I have en- 
closed an assembly listing of Merge. 



0093 
0095 



J3 






Merge BASIC Programs 
on the MC-10 



4300 

4300 DE 
4302 FF 



4305 
4307 
4308 
4309 



DE 
09 
09 
20 



93 

4311 

95 



03 

4311 

93 



430B FE 
430E DF 
4310 39 
4311 

4300 
* 

0000 TOTAL ERRORS 
* 

BASBEG 009 3 

BASEND 0095 

GOBACK 430E 

MERGE 430B 

TEMPAD 4311 



00100 
00110 
00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 
00210 
00220 
00230 
00240 
00250 
00260 
00270 
00280 
00290 
00300 
00310 



BASBEG EQU $009 3 

BASEND EQU $0095 

*BASIC MERGE PROGRAM 
*FOR THE MC-10 
*MICRO COLOR COMPUTER 
♦WRITTEN BY: 
* JAMES P. JONES 
*SEPT 1983 



ORG 

LDX 

STX 

LDX 

DEX 

DEX 

BRA 

MERGE LDX 

GOBACK STX 

RTS 

TEMPAD RMB 

END 



$4300 
BASBEG 
TEMPAD 
BASEND 



GOBACK 
TEMPAD 
BASBEG 

2 
START 



JJ 



James P. Jones 
496 Amboy Ave. 
Perth Amboy, NJ 08861 



This program will allow you to merge two or more BASIC 
programs on the MC-10. 

1 REM MERGE BASIC PROGRAMS 

2 REM FOR MC-10 

3 REM by JAMES P. JONES 

4 REM 496 AMBOY AVE. 

5 REM PERTH AMBOY, NJ 08861 

6 REM [70575,1273] COMPUSERVE NUMBER 

7 REM make sure that program #2 has 

8 REM larger line numbers than #1. 

9 REM ENJOY! 

10 B=0:FOR X = 17152 TO 17168 
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Variable Swapper 

Doug Faulkner, Jr. 
106 Baugh Avenue 
Hogansville, GA 30230 

Since variable swapping techniques have been at issue 
in the past few newsletters, I would like to add one of my own. 
This subroutine works with any two single precision, double 
precision, integer, or string variables. It will not work with 
arrays as it is presented here. Only two prerequisites are 
required: 

1 . DIMension an integer array for a maximum of eight — 
DIM A%(8) 

2. Both variables must be of the same type. 

This program was written for a Model III 48K computer. 

The subroutine uses an integer array to hold the decimal 
code for the machine language version of a memory move. 
A%{1) holds the from address, A%(3) holds the to address, 
and A%(5) holds the number of bytes to move. This routine 
will work for any memory move you wish to perform. 

Executing line 1000 will swap b and c, if they are of any 
type except array variables. 

Note: &HE000 is an arbitrary memory location. Any 
other unused location is acceptable (including the video 
portion). 

'- - Sample variable swapping program - - 

1 ' - - By : Doug Faulkner, Jr. - - 

2 ' - - No rights reserved - - 
10 CLS 

: CLEAR 1000 
20 DEFINT A 

25 PRINT ---------- Variable swapper sample 

program -------- 

26 PRINT STRING$(63,126) 

30 INPUT "Which type of variable do you want to 
swap. . . . 
1). Integer 
2). Single precision 
3). Double precision 

4). String (note: they can be of varying lengths) 
Enter choice ";TYPE 
40 IF (TYPE < 1 OR TYPE > 4) THEN CLS 

: GOTO 30 
50 ON TYPE GOTO 60,70,80,90 
60 DEFINT B - C 

: GOTO 100 
70 DEFSNG B - C 

: GOTO 100 
80 DEFDBL B - C 

: GOTO 100 
90 DEFSTR B - C 

: GOTO 100 
100 INPUT "Enter the value for B ";B 
110 INPUT "Enter the value for C ";C 
120 PRINT "B - *';B 

: PRINT "C ■ ";C 
125 PRINT STRING$(63,126) 
130 GOSUB 1000 
140 PRINT "B - ";B 

: PRINT "C - ";C 
150 INPUT "Try another (Y/N) ";Z$ 

: IF Z$ - "Y" THEN 10 ELSE STOP 
1000 A(0) - 8448 
A(2) - 4352 
A(4) - 256 
A(6) - -20243 
A(7) - 201 
A(l) - VARPTR(B) 
A(3) - &HE000 



A(5) « PEEK (VARPTR(B) - 3) 
DEFUSR0 - VARPTR(A(0)) 



1010 



A(8) - 


USR(0) 


A(l) - 


VARPTR(C) 


A(3) - 


VARPTR(B) 


A(8) - 


USR(0) 


A(l) - 


&HE000 


A(3) - 


VARPTR(C) 


A(8) - 


USR(0) 


RETURN 





Decimal to Binary 
Conversion Program 



Josh Bloom stone 
17 Crestwood Avenue 
Montreal, Que. Canada H4X IN3 



I have been studying both Computer Science and Data 
Processing for four years. Three months ago, I endeavored 
to learn how to program in Z-80 Assembler Language. I went 
out to my local Radio Shack Computer Center and bought 
both the Series-I Editor Assembler and the book "How To 
Program The Z-80." 

I found that in order to program in Assembly, I needed to 
further my knowledge in how to use the Binary Coded Deci- 
mal system. 

Frustrated with always having to use pencil and paper to 
convert my decimals to binary, I sat down with my Model III 
and wrote a program to solve my conversion problem. 



CLS 
!!!!!!!!!!!!!!!!! 
DECIMAL TO BINARY 

CONVERSION 
JOSH BLOOMSTONE 

MONTREAL 
JUNE 13, 1983 
!!!!!!!!!!!!!!!!! 
PRINT CHR$(23) 

: PRINT TAB(10) "DECIMAL TO BINARY" 
: PRINT TAB(ll) "CONVERSION" 
: PRINT TAB(12) "CALCULATION" 
H4 = 1 TO 1000 
NEXT 
CLS 



FOR 



20 

21 
30 
31 
40 
50 
51 
63 
70 
88 
90 
91 
92 
93 

100 



CLS 



INPUT "Would you like 

or @ for end";A$ 
IF A$ - "@" THEN END 
IF A$ - "CAL" THEN 100 
IF A$ <> "CAL" AND A$ <> "CON" THEN 
INPUT "What is your number" ;NUM 
PRINT NUM; 
PRINT 

15 TO STEP -1 

(NUM/2[Y) 



CALculation or CONveraion 



10 



FOR Y - 

M - INT 

PRINT M; 

L - NUM - M * 2[Y 

NUM ■ L 

NEXT Y 

PRINT 

: INPUT "<ENTER> TO GO 0N";LKJ 

: GOTO 10 ' 
CLS 

: INPUT "What will your calculation be Addition 

or Multiplication" ;B$ 
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110 IF B$ - "A" THEN 200 

111 IF B$ <> "A" AND B$ <> "M" THEN 100 
120 GOSUB 500 



121 C - 1 




130 FOR X - 1TOA 




131 PRINT "INPUT 


# "X 


132 INPUT B(X) 




140 C - C * B(X) 




150 NEXT 




151 NUM - C 




160 GOTO 50 




200 GOSUB 500 




210 FOR X - 1 TO 


A 


211 PRINT "INPUT 


# "X 


212 INPUT B(X) 




220 C - C+B(X) 




230 NEXT 




240 NUM - C 




250 GOTO 50 




500 INPUT "How uny numbers are there" ;A 


501 RETURN 





Labelmaker 



Bud My«rs 

2 Church Stre«t 

Washburn, ME 04786-0498 



Unable to afford a disk system, I am forced to organize 
my cassettes in order to use them efficiently. This is my 
method; perhaps others will also find it to be of some use. 

Several programs on one cassette are economical. Un- 
less I know just where each tape is positioned, however, 
locating a given program can take enough time to offset any 
monetary savings. Therefore, I always include the recorder 
counter dial reading on my cassette labels. By marking the 
position of the tape on each cassette before returning it to 
storage, I have a starting point for the next use. 

Suppose I need a program on cassette "A." The index 
tells me the program I want is at dial reading 075. The index 
mark is at 045. I look at the current dial reading on the 
recorder. If it is less than 045, 1 fast forward again to 075. 1 then 
load the program. 

If the dial reading on the recorder is greater than the 
index mark on the cassette, I first reset the counter to zero, 
and then proceed as above. Since the dial does not change 
on rewind without a cassette in place, this is one of two 
alternatives. The other is to keep a useless cassette handy. 
When this seems best, I put it in the recorder, rewind to the 
index setting, and proceed as above. Old audio cassettes are 
fine for this use. 

I store all my program tapes in hard cases. I buy only 
those blank cassettes which include such cases. For com- 
mercially obtained programs which do not, I buy empty 
cases in which to store them. 

I use grease pencil (china marker) to place the Index 
mark on each cassette showing the dial reading of the tape. 
These marks are easily changed when the tapes inside are 
repositioned. 

To produce neat labels for both the case and the cassette 
inside, I use the program in Listing 1. It works on either 
Model I or Model III systems with 16 K or larger memories. 
With a Lineprinter II, IV or VIII, it will index 24 programs per 
cassette— 1 2 on each side. I use both sides of my cassettes, 
so this program indexes both sides and prints a label for 
each. 



I use different colored construction paper for each cate- 
gory of programs: yellow for utilities, green for games, gray 
for graphics, purple for word processing, etc. This also helps 
prevent putting cassettes in the wrong case when I'm rushed. 
The paper I use is nine inches wide and does not fit between 
the sprocket pins of my printer, so I trim it to 8 1 1-2 inches before 
beginning. 

Using the program is largely a matter of responding to 
prompts. There are six for each line— three for each side, A 
and B. The first, "Counter?", accepts either numeric or non- 
numeric responses I use leading zeros for numbers of less 
than three digits. When I want to print nothing for all three 
fields of either half of a line, I answer this prompt with any 
character other than a number or the period. 

The "File 9 " prompt accepts any single displayable char- 
acter. Quotation marks should not be used; the print routine 
will provide them. I use the symbol under which the program 
was saved 

"Title?" may be any combination of upper- and lower- 
case symbols up to 20. 

Following the final title on side B, I respond to the 
"Counter?" prompt with a period ("."). This stops the index- 
ing and brings up the final prompt. "Label 7 " is for the title 
identifying the entire collection of programs on the cassette. It 
will appear on both the case label and those for the two sides 
of the cassette itself. It may be up to eighteen characters in 
length. 

After printing one set of labels, I remove and invert the 
paper, then print another set on the same sheet. I cut them all 
out on the printed lines The case label is folded and slipped 
inside the case. The cassette labels are attached with rubber 
cement. I have occasionally put the label reading "Side A" on 
the wrong side of the cassette. Rubber cement allows me to 
correct such mistakes fairly easily. I hope you will be more 
careful than I. 

I can manage my two cassette-based systems and their 
ninety-odd cassettes fairly well with these procedures. I'm still 
saving up for disk drives in the future. I'll try to modify the 
program to produce labels for diskettes at that time. 






GOTO 44 ' LABELMAKER BY BUD MYERS 


1 


CLEAR 1500 






DEFINT I.L.Z 






DEFSTR C,F,P - R,T - W 






P - CHR$(27) 






Q - CHR$(34) 






R - P + CHR$(19) 






TH - P + CHR$(28) 






TE - P *■ CHR$(15) 






V - CHR$(124) 






W - P ♦ CHR$(20) 






TX - P ♦ CHR$(14) 






QB - CHR$(34) + " " + CHR$(34) 


2 


LPRINT W STRING$(62,45)TH; V 


3 


LPRINT TX "SIDE A: SIDE B: 


4 


LPRINT STRING$(62,32) V 




: L - 2 


5 


INPUT "COUNTER"; CA 




: IF ASC(CA) > 47 AND ASC(CA) < 58 


6 


IF CA - "." THEN 19 


7 


CA - " " 






FA - " " 






TA - " 






GOTO 10 


8 


INPUT "FILE"; FF 




: IF FF - '"" THEN FA - QB ELSE FA 


9 


IN 


>UT "TITLE"; TA 



"TE; V 



THEN 8 



FF ♦• Q 
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10 



INPUT "COUNTER"; CB 

: IF ASC(CB) > 47 AND ASC(CB) < 58 THEN 12 



QB ELSE FB 



FF 



LEFT$(CL,20) 



.5 
• 10 - 



11 CB = " " 
FB = " " 
TB « " " 
GOTO 14 

12 INPUT "FILE"; FF 

: IF FF - '"" THEN FB 

13 INPUT "TITLE"; TB 

14 LPRINT CA" "FA" "TA; 

15 LPRINT TAB(30)CB" "FB" "TB; 

16 LPRINT TAB(62) V 

17 L = L + 1 

18 GOTO 5 

19 X =■ 14 - L 

20 FOR Z - 1 TO X 

: LPRINT STRING$(62,32) V 
: NEXT 

21 LPRINT R STRING$(37,45)TH 

22 INPUT "LABEL"; CL 

23 L = LEN(CL) 

: IF L > 20 THEN CL 
: L - 20 

24 S - L/2 

: IF S <> INT(S) THEN S ■ S i 

25 IF S > =10 THEN X = ELSE X 

26 LPRINT TX STRING$(X - 1,32)CL 

: LPRINT TH STRING$( 37 ,45 ) 

27 FOR Z - 1 TO 2 

: LPRINT STRING$(37,32) V 
: NEXT 

28 LPRINT "." STRING$(34,32)". 

29 LPRINT " ." STRING$(30,32)". 

30 LPRINT " ." STRING$(26,32)". 

31 LPRINT " " STRING$(24,46) 

32 LPRINT W STRING$(5,138) 

: T =» "A" 

33 LPRINT STRING$(3,32) STRING$(53 ,95)TH 

34 LPRINT V STRING$(57,32) V 

35 LPRINT V TAB(23)TX"SIDE "T; TE TAB(56) V 

: LPRINT TH 

36 LPRINT V STRING$(13,32) STRING$( 32 ,45) TAB(58) V 

37 LPRINT TH 

: FOR Z ■ 1 TO 2 

38 LPRINT V STRING$(10,32) V STRING$( 36 , 32) V TAB(58) 

V 

39 NEXT 

: LPRINT TH; V STRING$(13 , 32) STRING$( 32 ,45) 

40 LPRINT V; TX TAB( 18 - (LEN(CL)/2) ) ; CL 

41 LPRINT V STRING$(57,95) V 



42 I 



43 CLS 



44 CLS 



I + 1 
IF I - 1 
GOTO 33 

LPRINT R 

END 



THEN T 



'B" 



: PRINT 

: PRINT "A PROGRAM TO PRODUCE LABELS FOR HARD 

CASSETTE CASES ON RADIO 

45 PRINT "SHACK LINEPRINTER IV. UP TO 12 PROGRAMS PER 

46 PRINT "SIDE MAY BE LISTED. EACH LISTING CONSISTS 

OF COUNTER DIAL READ- 

47 PRINT "ING, FILE REFERENCE SYMBOL AND TITLE. THE 

COMBINED LENGTH OF 

48 PRINT "EACH LISTING, INCLUDING SPACES, IS 30. 

LABELS FOR THE CASSETTE 

49 PRINT "ITSELF ARE ALSO PRINTED. 

50 PRINT 

: PRINT "ANY KEY TO CONTINUE. 

51 U$ - INKEY$ 

: IF US • "" THEN 51 

52 CLS 

: PRINT "BE SURE A PRINTER IS CONNECTED, TURNED 
ON AND CONTAINS PAPER. 

53 PRINT 



: PRINT "ANY KEY TO BEGIN. 

54 U$ « INKEY$ 

: IF U$ » "" THEN 54 

55 CLS 

: GOTO 1 



Short Directory 
Program 

Dr. Thomas R. W. Longstaff 
39 Pleasant Street 
Waterville, ME 04901 

I've been a TRS-80 user since 1979 when I first took a 
Model I to the Upper Galilee (Israel) for use in building a data 
base for on-site processing of information at an archaeologi- 
cal site. I have recently "up-graded" to a Model III system 
with which I am very happy. 

Although I have purchased some good software pack- 
ages, I have not yet replaced the "Master Directory" program 
which I purchased for my Model I. A few days ago I wanted a 
list of the programs and files which I had saved to disk and it 
occurred to me that I could produce such a list quickly and 
easily with a simple program. It may surprise some new users 
to see just how easy the task was! The "one liner" below 
allows the user to insert disks sequentially into Drive 1 of a two 
drive system and produce hard copy directories for each 
diskette in turn. The program could easily be adapted for a 
single drive system. 

10 FOR x =■ 1 TO 50 

: LPRINT 

: LPRINT "DIRECTORY FOR DISKETTE NO. " ; X 

: CMD "Z", "ON" 

: CMD "D: 1" 

: CMD "Z", "OFF" 

: INPUT "CHANGE DISKETTE IN DRIVE 1; PRESS ENTER 
TO CONTINUE; BREAK TO END"; C 

: NEXT J3 



DO File Directory 

Mark Rife 

5405 North Charles Street 

Baltimore, MD 21210 



I was introduced to the TRS-80 in 8th grade, I was 
impressed with the capabilities of this computer. About a year 
ago my family bought a basic 16K cassette Model III. We 
quickly outgrew the system, and, as I am now entering 10th 
grade, we are now the proud owners of a 48K two drive 
Model III! In this time, I have accumulated disks upon disks 
full of programs. I decided I would create a program that 
would print a directory, a free space map, and information 
about each diskette in one easy step. Monthly, I run the 
program; so I have up-to-date printed records. 

This program will work on any system that uses TRSDOS 
1 .3 commands and has one or more disk drives and any 
printer. (Editor's Note: We tested this program on a 48K two 
disk drive Model III with a DMP-2100.) To set yourself up, 
type the disk BASjC program in and save it. 

The main program is run from disk BASIC. After you tell 
how many drives you have, the diskette number, the code, 
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the date, your name, and any comments, all the information is 
printed. Then using the CMD "I" command, a DO file is 
accessed from TRSDOS. This file asks for the diskette to be 
reported to be entered in the drive and for you to press 
iTn TTF ). It then prints the directory and free space map. 
The file executes BASIC * and asks if you want to report any 
more diskettes. 



10 
20 
30 
40 
50 



********************************* 

* BY MARK RIFE * 

* 5405 NORTH CHARLES STREET * 

* BALTIMORE, MD 21210 * 
********************************* 



60 CLEAR 1000 
70 GOSUB 650 
80 1$ » INK£Y$ 

90 PRINT@210, "NUMBER OF DRIVES: <1> OR 
1 TO 100 



<2>* 



FOR I ' 
NEXT I 

PRINT0229, " "; 
PRINT@236, " "; 
FOR I - 1 TO 50 
NEXT I 
100 IF 1$ - "" THEN 80 
110 DR - VAL(I$) 
120 IF DR > 2 OR DR < 1 THEN 80 
130 GOSUB 650 
140 C$ - CHR$(30) 
150 PRINT(?192, "— > DISKETTE NUMBER";C$; 

: INPUT DN$ 
160 L$ - LEFTS (DN$,1) 
170 IF L$ > "9" OR L$ < "0" THEN 150 
180 IF L£N(DN$) > 10 THEN 150 

190 PR1NT0256, " > CODE (UP TO 3 CHARACTERS )";C$ ; 

: INPUT CD$ 
200 IF LEN(CD$) > 3 OR LEN(CD$) = THEN 190 

210 PRINT@320, M > TODAY'S DATE ";CS; 

: LINE INPUT DA$ 
220 IF LEN(DA$) > 20 OR LEN(DA$) ■ THEN 210 

230 PRINT@384, " > YOUR NAME";C$; 

: INPUT NA$ 
240 IF LEN(NA$) > 20 OR LEN(NA$) - THEN 230 
250 PRINT0448, "— > COMMENTS (IF NONE PRESS 

<ENTER>):";C$ 
260 LINEINPUT CO$ 
270 IF LEN(COS) - THEN CO - 1 
280 1$ - INKEY$ 

290 PRINT@976, "IS THIS INFORMATION CORRECT (Y/N)?"; 
1 TO 100 
PRINT@976, STRING$(35," "); 
1 TO 50 



300 IF 
310 IF 
320 IF 

330 



FOR I 
NEXT I 
FOR I 
NEXT I 

1$ O "Y" AND 1$ <> "N" THEN 280 
1$ - "Y" THEN 340 
1$ = "N" THEN PRINT@974 
HIT <ENTER>" 



"TO RE INPUT THE 



THEN 330 ELSE DN$ 



INFORMATION 
1$ = INKEYS 

IF 1$ - " 

CD$ - "" 

DA$ - "" 

NA$ - "" 

C0$ - "" 

GOTO 130 
340 GOSUB 650 
350 1$ - INKEY$ 
360 PRINT@202, 
<ENTER>"; 

FOR I - 

NEXT I 

PRINT@202, STRINGS (42," ") 

FOR I - 1 TO 50 

NEXT I 
370 IF 1$ - "" THEN 350 
380 PRINT@192, "DISKETTE NUMBER: 
390 LPRINT "DISKETTE REPORTER" 



PLEASE ALIGN THE PRINTER AND HIT 



1 TO 100 



400 LPRINT "DISKETTE NUMBER: 


'; TAB(20);DN$ 


410 PRINT0256, "DISKETTE CODE: 


";CD$ 


420 LPRINT "DISKETTE CODE: "; 


TAB(20);CD$ 


430 PRINTG320, "DATE OF RECORD 


" ; DAS 


440 LPRINT "DATE OF RECORD: " 


TAB(20);DA$ 


450 PRINT@384, "NAME OF RECORDER: ";NA$ 


460 LPRINT "NAME OF RECORDER: 


"; TAB(20);NA$ 


470 IF CO - 1 THEN 520 




480 PRINTG448, "COMMENTS: " 




: PRINT COS 




490 LPRINT "COMMENTS:" 




500 LPRINT CO$ 




510 LPRINT 




520 LI 
530 U 










•RINT 


- 


540 FOR I - 1 TO 500 




: NEXT I 




550 IF DR = 1 THEN CMD"I", "DO 


DRIVE1/BLD" 


560 IF DR = 2 THEN CMD"I", "DO 


DRIVE2/BLD" 


590 GOSUB 650 




600 1$ » INKEYS 




610 PRINT(?201, "WOULD YOU LIKE 


TO MAKE ANY MORE 


REPORTS (Y/N)?" 






FOR I - 1 TO 100 






NEXT I 






PRINT0201, STRING$(50," 


") 




FOR I - 1 TO 50 






NEXT I 




620 IF 1$ - "" THEN 600 




630 IF 1$ - "Y" THEN 130 




640 IF 1$ - "N" THEN CLS 





DN$;C$ 



: END 
650 CLS 

660 PRINT@23, "DISKETTE REPORTER" 
670 PRINT@64, STRINGS (64, 95) 
680 RETURN 

After saving the program, type in the DO files, DRIVE 1/ 
BLD and DRIVE2/BLD, using the BUILD command. 

BUILD DRIVE1 < ENTER > 

Hit BREAK to exit 

Type in up to 63 Characters 

CLS <ENTER> 

Type in up to 63 Characters 

PAUSE ***ENTER DISKETTE TO BE REPORTED IN DRIVE #0*** 

<ENTER> 
Type in up to 63 Characters 
DIR :0 (PRT) <ENTER> 
Type in up to 63 Characters 
FREE :0 (PRT) <ENTER> 
Type in up to 63 Characters 
BASIC * <ENTER> 
Type in up to 63 Characters 
GOTO 590 <ENTER> 
Type in up to 63 Characters 
<BREAK> 

BUILD DRIVE2 <ENTER> 

Hit BREAK to exit 

Type in up to 63 Characters 

CLS <ENTER> 

Type in up to 63 Characters 

PAUSE ***ENTER DISKETTE TO BE REPORTED IN DRIVE #1*** 

<ENTER> 
Type in up to 63 Characters 
DIR : 1 (PRT) <ENTER> 
Type in up to 63 Characters 
FREE : 1 (PRT) <ENTER> 
Type in up to 63 Characters 
BASIC * <ENTER> 
Type in up to 63 Characters 
GOTO 590 <ENTER> 
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Type in up to 63 Characters 
<BREAK> 



Magazine Index 

Case Larson 
115 Bixby Drive 
Milpitas, CA 95035 



The first program creates an index of magazine articles 
by Category, Title, Author, Code, Year, Page Number and 
Month of the article. 

5 CLEAR 500 

10 OPEN "0", 1 , "FILENAME/EXT" 

20 INPUT "CATEGORY" ;C$ 

30 INPUT "TITLE";T$ 

40 INPUT "AUTHOR" ;A$ 

50 INPUT "C0DE";CD$ 

55 INPUT "YEAR";YR 

57 INPUT "PAGE NUMBER" ;P 

58 INPUT "MONTH" ;M0$ 

60 INPUT "IS THIS RIGHT";ZZ$ 

70 IF ZZ$ - "Y" THEN 90 

80 IF ZZ$ - "N" THEN 20 

85 IF ZZ$ <> "Y" OR ZZ$ <> "N" THEN 60 

90 PRINT #1,C$; ","; T$ ; ","; A$ ; ","; CD$ ; ","; YR; 

","; P; ","; M0$ 
100 INPUT "AGAIN Y/N";ZZS 
110 IF ZZ$ - "Y" THEN 20 
120 IF ZZ$ » "N" THEN CLOSE 

: END 
130 IF ZZ$ <> "Y" OR ZZ$ <> "N" THEN 100 

If you wish to add more records to the file, change the file 
mode in Line 1 to extend (E) instead of sequential output (0). 

10 OPEN "E", 1 , "FILENAME/EXT" 

The following program accesses the index by Category, 
Title, Author, Code, Year, Page Number, or Month of the 
article. 



5 CLEAR 5000 




10 CLOSE 






: OPEN 


"I 


',1, "FILE NAME /EXT" 


20 INPUT "WHICH ONE C(ATEGORY), T(ITLE), A(UTHOR), 


CO(DE) 


, Y(EA)R, P(AGE NUMBER), M(ONTH), 


E(ND)" 


;QS 




40 IF Q$ - 


•c" 


THEN GOTO 100 


50 IF Q$ - 


'T" 


THEN GOTO 200 


60 IF Q$ - 


'A" 


THEN GOTO 300 


70 IF Q$ - 


'CO 


' THEN GOTO 400 


80 IF Q$ =» 


'YR 


' THEN GOTO 500 


90 IF Q$ - 


.p.. 


THEN GOTO 600 


95 IF Q$ =» 


'M" 


THEN GOTO 700 


97 IF Q$ - 


'E" 


THEN END 


98 GOTO 20 






100 INPUT " 


CATEGORY" ;W$ 



105 IF EOF(l) THEN PRINT "END OF INDEX FILE" 

: GOTO 10 
110 INPUT #1,C$,'T$,A$,CDS,YR,P,M0$ 
120 IF W$ - C$ THEN PRINT "CATEGORY: ";C$ 

PRINT "TITLE: ";T$ 

PRINT "AUTHOR: ";A$ 

PRINT "CODE: ";CD$ 

PRINT "YEAR: ";YR 

PRINT "PAGE NUMBER: ";P 

PRINT "MONTH: ";M0$ 
130 GOTO 105 
200 INPUT "TITLE";X$ 

205 IF EOF(l) THEN PRINT "END OF INDEX FILE" 
: GOTO 10 



210 INPUT #1,C$,T$,A$,CD$,YR,P,M0$ 

220 IF X$ - T$ THEN PRINT "CATEGORY: ";C$ 

PRINT "TITLE: ";T$ 

PRINT "AUTHOR: ";A$ 

PRINT "CODE: ";CD$ 

PRINT "YEAR: ";YR 

PRINT "PAGE NUMBER: ";P 

PRINT "MONTH: ";M0$ 
230 GOTO 205 
300 INPUT "AUTHOR" ;Y$ 
305 IF EOF(l) THEN PRINT "END OF INDEX FILE' 

: GOTO 10 
310 INPUT #1,CS,T$,A$,CD$,YR,P,M0$ 
320 IF Y$ « A$ THEN GOSUB 1000 
330 GOTO 305 
400 INPUT "CODE";Z$ 
405 IF EOF(l) THEN PRINT "END OF INDEX FILE' 

: GOTO 10 
410 INPUT #1,C$,T$,A$,CD$,YR,P,M0$ 
420 IF Z$ - CD$ THEN GOSUB 1000 
430 GOTO 405 
500 INPUT "YEAR";U 
505 IF EOF(l) THEN PRINT "END OF INDEX FILE' 

: GOTO 10 
510 INPUT #1,C$,T$,A$,CD$,YR,P,M0$ 
520 IF U - YR THEN GOSUB 1000 
530 GOTO 505 

600 INPUT "PAGE NUMBER" ;V 
605 IF EOF(l) THEN PRINT "END OF INDEX FILE' 

: GOTO 10 
610 INPUT #1,C$,T$,A$,CD$,YR,P,M0$ 
620 IF V - P THEN GOSUB 1000 
630 GOTO 605 
700 INPUT "MONTH" ;L$ 
705 IF EOF(l) THEN PRINT "END OF INDEX FILE' 

: GOTO 10 
710 INPUT #1,C$,T$,A$,CDS,YR,P,M0$ 
720 IF L$ - M0$ THEN GOSUB 1000 
730 GOTO 705 
1000 PRINT "CATEGORY: ";C$ 

PRINT "TITLE: ";T$ 

PRINT "AUTHOR: ";A$ 

PRINT "CODE: ";CD$ 

PRINT "YEAR: ";YR 

PRINT "PAGE NUMBER: ";P 

PRINT "MONTH: ";M0$ 
1010 RETURN 



Sort Integers Using 
CMD"0" 



J. F. Atherley 
35 Faraday Crescent 
Deep River, Ontario 
Canada KOJ 1P0 



I realize that many sorting programs have been pre- 
pared and discussed, and I hesitated to submit another. 

This program is designed to demonstrate and test a 
subroutine that sorts a list of integers using the disk BASIC 
procedure for sorting strings, CMD"0". To test the subrou- 
tine, a timer was built into the program to time both the whole 
subroutine and the sorting procedure itself. During several 
runs of the program, I varied the number of integers sorted 
and the amount of memory CLEARed for string storage. The 
results tabulated below demonstrate how efficient the 
CMD"0" procedure is and the effect of "garbage collections" 
when processing strings. 
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NO. 



250 


17 


1 


17 


500 


88 


2 


32 


750 


104 


5 


48 


1000 


237 


6 


209 



16 


1 


32 


2 


49 


4 


64 


6 



SORT TIME IN SECONDS 
CLEAR 10000 CLEAR 20000 CLEAR 25000 
S/R CMD"0" S/R CMD"0" S/R CMD"0" 

1 
2 
5 
6 

This program was written for a TRS-80 Model III with 
48K and 2 disk drives. 

1 'SRTINT/PRG 

2 'Demonstrates 

1. Subroutine which uses the disk BASIC command, 
CMD"0", to sort a list of positive and/or 
negative integers. 

3 ' 2. A built-in timing procedure. 
10 ' Programmed by : J.F.Atherley , 

35 Faraday Crescent, 

Deep River, Ontario K0J 1P0 

50 ' ALGORITHM. 

51 ' The program uses the random number generator to 

obtain a list of positive and negative integers, 
the user indicating the number to be selected. 

52 ' The unsorted list is displayed, sorted, and the 

the sorted list displayed. The program times the 
actual sorting procedure. 

53 ' The timing procedure sets the system clock to 

00:00:00 at the start of the interval to be 

timed and converts the clock to seconds at the 

end of the interval. 
100 CLEAR 10000 

DEFINT I - Z 

DIM LK1000), LI$(1000) 

DEF FNT(I) « P£EK( 16919) + 60 * (PEEK( 16920) + 

60 * PEEK( 16921)) 
110 CLS 

: INPUT "Number of integers in list "; N 
120 FOR I - 1 TO N 

: LI (I) - RND( 20000) - 10000 

: NEXT 
130 GOSUB 500 ' Display unsorted list of 

integers 
140 PORE 16921,0 

: POKE 16920,0 

: POKE 16919,0 
150 GOSUB 1000 
160 TF - FNT(I) + TF 

seconds 
170 GOSUB 500 

integers 

180 PRINT " Time required to sort " N " integers ■ " 
TF 

181 PRINT " Time required to sort " N " strings = " 
TS 

190 END 

500 'Subroutine DISPLAY 

Displays n integers stored in LI(1) -> LI(N) in 
10 columns. 
510 F$ - "######" 
520 FOR I - 1 TO C INT(N/10) 
IJ - 10 * (I - 1) 
FOR J - 1 TO 10 
PRINT USING F$; LI(IJ + J); 
NEXT J 
PRINT 
NEXT I 
530 IF (N - IJ) < > 10 THEN FOR I - IJ + 11 TO N 
: PRINT USING F$; LI (I); 
: NEXT I 
540 PRINT 

: PRINT 
: RETURN 



Set system clock to 00:00:00 
Sort integer list 
Convert system clock to 

Display sorted list of 



LI(I) ELSE IF LI(I) > 
LI(I) 

> MN THEN PRINT "OVERFLOW RANGE" 



1000 'Subroutine INTEGER SORT 

Calling program must include: 
Integer definition - DEFINT I - N 
Array declaration - DIM LI(m), LI$(m) 
Data - N (<= m) integers stored in LI(1) -> 
LI(N) 
1010 'Returns integer data sorted in ascending order 

in LI(l) -> LI(N). 
1020 MN = 

MX - 

LM = 32767 

BL$ - " 

1030 FOR I = 1 TO N 

: IF LI(I) < MN THEN MN 
MX THEN MX ■ 

1031 NEXT 
1040 IF (MX - LM) 

: STOP 
1050 FOR I = 1 TO N 

: LI$(I) = RIGHT$ (BL$ ♦ STR$ (LI(I) - MN),5) 
: NEXT 

1059 TF = FNT(I) 
POKE 16921,0 
POKE 16920,0 
POKE 16919,0 

1060 CMD"0", N, LI$(1) 

1061 TS ■ FNT(I) 
1070 FOR I = 1 TO N 

: LI(I) - VAL (LI$ (I)) + MN 
: NEXT 
1080 RETURN 



Print Model III Disk 
Directory 

Mike Salisbury 
1711 Skylark Lane 
Newport Beach, CA 92660 



The tollowing program provides you with a directory of 
your TRS-80 Model III disks. Two drives are required. 
TRSDOS must be in DRIVE:0. 

Insert each disk, as requested into DRIVE: 1 . You will be 
asked the name of the disk. After each disk's contents has 
been read you will be given the choice of inserting another 
disk or sorting the programs on the disks that have been 
read. 

After sorting, you will be given the option of HARD COPY 
or DISKSTORAGE. 

REM 27 December 1981 

1 REM MODEL III DISK/DIR 

2 REM — WRITTEN BY: Mike Salisbury — 

3 REM 1711 Skylark Lane 



4 REM 

10 CLS 



Newport Beach, CA 92660 



20 CLS 



CLEAR 10000 

CMD"B", "OFF" 

DIMF$(500), DN$(50) 

A = 1 

B = 15 

C ■ 

I - 

UL$ = STRING$(63,1A0) 

AB$ - STRING$(22,32) • 



: PRINT STRING$(12,32) + 
DISK DIRECTORY PROGRAM" 



"For MENU press '@' 
"TRS-80 MODEL III 
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30 PRINT UL$ 

: PRINT@896, UL$ 
: PRINT@221 , "MENU" 

: PRINT@342, "1 - Enter disk file names" 
: PRINT@406, "2 - Print files" 
: PRINT@470, "3 - Save on disk" 
: PRINT@534, "4 - Load from disk" 
: PRINT@598, "5 - Instructions" 
: PRINT@662, "6 - End" 
40 PRINT@790, "Select one:" 
50 S$ = INKEY$ 

IF S$ = "" THEN 50 ELSE IF S$ = "l" THEN A = 1 
GOTO 60 ELSE IF S$ = "2" THEN A = 1 
GOTO 150 ELSE IF S$ = "3" THEN 210 ELSE IF S$ 
= "4" THEN 270 ELSE IF S$ = "5" THEN 400 ELSE IF 
S$ <> "6" THEN 50 ELSE 350 
60 CLS 

: PRINT TAB(22)"Enter disk file names" 
: GOSUB 360 

: PRINT@278, "Insert disk in DRIVE: 1" 
: PRINT@406, "" ; 
: INPUT "ENTER disk name";DN$ 
70 IF DN$ = "@" THEN 20 
80 CMD"D:1" 

: PRINT CHR$(15) 
90 G = PEEK( 15360 + B + C) 

IF G <> 32 THEN F$(A) = F$(A) + CHR$(G) 
C = C + 1 

GOTO 90 ELSE IF C = AND G = 32 THEN 110 ELSE 
IF G = 32 THEN IF PEEK( 15375 + B) = 32 THEN B = 
B + 19 ELSE B = B + 15 
100 C = 

: F$(A) « F$(A) + STRING$(20 - LEN(F$(A) ) ,46) + 
DN$ 

: A = A + 1 
: GOTO 90 
110 CLS 

: PRINT@325, "Insert next disk and press 
'ENTER'" 
PRINT 

PRINT TAB(40) "or" 
PRINT 

PRINT TAB (44) "press '*' to SORT" 
120 S$ = INKEY$ 

: IF S$ = "" THEN 120 ELSE IF S$ = CHR$(13) THEN 
B = 15 

: GOTO 60 ELSE IF S$ = "@" THEN 20 ELSE IF S$ <> 
"*" THEN 120 
130 N% = A - 1 
140 CMD"0", N%, F$(l) 

: GOTO 20 
150 CLS 

PRINT TAB(27) "Print files" 
GOSUB 360 

PRINT@399 , "Press 'SPACEBAR' when printer 
ready" 
160 S$ = INKEY$ 

. IF s $ = ■•» THEN 160 EL sE IF S$ = "@" THEN 20 
ELSE IF S$ <> " " THEN 160 
170 A = 1 
: CLS 

: PRINT@472, "PRINTING" 
180 LPRINT 

: LPRINT TAB(5) "TRS-80 MODEL III DISK 
DIRECTORY"; 
LPRINT " "; 
LPRINT LEFT$(TIME$,8) 
LPRINT 
LPRINT 

LPRINT TAB(9) "FILE NAMES DISK NAME" 
LPRINT 

LPRINT STRING$(49,45) 
LPRINT 
190 LPRINT TAB(10);F$(A) 
: A = A + 1 
: IF F$(A) <> "" THEN 190 



200 GOTO 20 
210 CLS 

PRINT TAB(23) "Save files to disk" 

GOSUB 360 

PRINT@384, "" 
220 PRINT@406, "" ; 

: LINEINPUT "File name to use ";Z$ 
230 IF Z$ = "@" THEN 20 
240 PRINT 

: PRINT@608, "SAVING to disk" 
250 OPEN"0", 1, Z$ 
260 FOR V = 1 TO A - 1 

PRINT #1, F$(V) 

NEXT 

CLOSE 

GOTO 20 
270 ON ERROR GOTO 340 

CLS 

PRINT TAB(25) "Load from disk" 

GOSUB 360 

PRINT@384, "" 
280 PRINT@406, "" ; 

: LINEINPUT "Name of disk file ";Z$ 
290 IF Z$ = "@" THEN 20 
300 OPEN"I", 1, Z$ 

: A = 1 
310 IF EOF(l) THEN 330 
320 INPUT #1, F$(A) 
: A = A + 1 
: GOTO 310 
330 CLOSE 

: GOTO 20 
340 PRINT@608, "Bad file name"; 

FOR I = 1 TO 1000 

NEXT I 

RESUME 20 
350 CLS 

PRINT@476, "GOODBYE" 

CMD"B", "ON" 

END 
360 PRINT UL$ 

PRINT@832, UL$ 

PRINT AB$; 

RETURN 

400 CLS 

: PRINT TAB(16) "DISK DIRECTORY INSTRUCTIONS" 

401 PRINT UL$ 

: PRINT "This program will provide you with a 
directory of your TRS-80 Model III disks. Two 
drives are required. TRSDOS must be in DRIVE :0" 

402 PRINT 

: PRINT "Insert each disk, as requested into 
DRIVE: 1. You will be asked the name of the disk. 
After each disk's contents has been read you 
will be given the choice of inserting another 
disk or" 

403 PRINT "sorting the programs on the disks that 

have been read." 

: PRINT 

: PRINT "After sorting, you will be given the 

option of HARD COPY or DISKSTORAGE. " 

: PRINT UL$ 

404 INPUT "PRESS ENTER TO CONTINUE" ;Z$ 

: GOTO 20 JQ 
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Communication and 
TRSDOS 6.0 

by Carol Morton 

Tucked into the TRSDOS 6.0 operating system is a sur- 
prising little utility called "COMM." With this utility you can 
communicate via a device, usually the RS-232 communica- 
tions line, not only with other local computers but with Bulletin 
Board Systems, News and Information Systems, 
Timesharing Systems, and Electronic Mail Services. With 
COMM you can also communicate with systems that support 
XON/XOFF (Proceed/Pause) protocol. To the uninitiated, 
COMM may seem complex but don't be too readily discour- 
aged. This utility is very easy to use once you know your way 
around its Function Keys. 

THE FUNCTION KEYS 

COMM operates through the use of two types of Func- 
tion Keys: Application Keys, which designate a device to 
which action is to be applied, and Action Keys, which identify 
the action applied. The \ C~l e ar key is used with each of 
the Application and Action Keys. This procedure, pressing 
and holding down the (CL EAR' key then pressing the 
desired Action or Application Key, operates as a Function 
Key. It is through the use of combinations of Application and 
Action Keys that you initiate communication operations. 

Function Keys ,CL EAR) CD through r cTTE AR) 3D 
designate the device to which an action will be applied. 
Function 

Key Device Abbreviation 

(CLEAR) fTD Keyboard Device (*KI) 

fC~UE AfiD m Display Device (*DO) 

(CLE Am CD Printer Device (*PR) 

(CLE A~R^ 3D Communications 

Line Device (*CL) 

rc~TE A FT ) CD "Data Send" Device (*FS) 

(CLEAR) SD "Data Receive" Device (*FR) 

The remaining Function Keys perform an action. Before 
certain actions can be performed, one of the Application 
Keys, f C L E A~RD CD through rc mTA~R~ D CO, must be speci- 
fied. The Actions Keys are: 



Action Key 
CC_ L E A R ) LTD 
(C LEA R) CD 
r CLEARI f^ 
fCTEARD (3D 
XTE A R QC 

:~ c~l E A ~R~] CD 

r c~L e a rd ( Sh i m m 

CLE AR1 rSTTTF TD (3D 

CL_E_ARJ (SHIFT) (3D 

( ~C~L EAR] ( SHIF T) Gfa} 

CLEAR] (SH I FT) (3D 

:CTEA~Rl C5H Tl Ffl CD 



OCT E A FT (S H I FT) CD 
(CLEAR) r 5HlFT) m 



Operation 

"Dump-to-Disk" (DTD) 
Displays the MENU 
Specifies send/receive file 
Closes send/receive file 
Turns a device ON 
Turns OFF a device 
Controls character "Echo" 
Controls Echoing linefeeds 
Controls linefeed acceptance 
Restarts send/receive file 
Appends data to end of file 
Displays control characters 
being received/sent 
Erases contents of screen 
(Followed by ON command) 
Computer will use all 8 
bits of character received 



(C L'E'ATT) fS HiFT) (3D Permits a TRSDOS library 

command to be entered 
(CLEAR) rs~ HTT~TH C*D Controls data line 

handshaking 
Once COMM is loaded, the screen displays the prompt 
"Use ( CLEAR ] (JC for menu." Any time you need to refresh 
your memory on the key associated with an action or device, 
you can call up this menu. Note the asterisks that appear on 
the menu. Asterisks above or below the Function Keys indi- 
cate that the function is active. Two asterisks indicate a device 
which is capable of both input and output. 



• 13 

CLS 8-B CMD HNDSH 
.- 8 = ■ 9 = = = = : = 
■"' ID RES ON 



DUPLXECHO ECOLF ACCLF RE W I ND PE OF DCC 

= 1- =2= =3= =a= =5= =G= =7 = 

•KI »D0 »PR »CL »FS »FR DTD 

# # • • • 

FR-SPEC: HECTOR/HEC : * MEMORY: a7K 

Rather than attempt to explain each of these Action Keys 
in detail, we will describe some typical operations and the 
commands required to execute them. Since we have a few 
tricks for simplifying the loading of COMM, we'll save our 
description of this procedure for last. 

USING THE FUNCTION KEYS 

After loading COMM and establishing communications 
with a Bulletin Board, you may find you have messages 
waiting and want to make a hardcopy. Before executing the 
required commands to "read" your mail, just turn your printer 
on. To do this press (C L E ARJ (3D then CC L E AR] CD- The 
information that appears on your screen will now also appear 
on hardcopy via your printer. (Providing of course, you've 
remembered to turn your printer on and its cable is properly 
connected.) To turn the printer function OFF, press 

(clear: on then re l ea r] c^D 

If you have a program you want to send via COMM, it 
must first be stored in an ASCII file on disk in either drive or 
1 . After loading COMM, identify the file you want to send by 
pressing CC L E A R~] GD. then (clear) (3D and enter the 
name of the file at the prompt. Turn on the handshake 
mode by pressing rc~L~E ar" ) C&iUJLU C*D followed by 
(E N T erD . (You will need to determine whether the host 
supports handshaking. If it does not, try to transfer the file 
without the handshake mode. If this doesn't work, contact the 
host and find out what procedures are required to send files.) 
Open the file at the host end and ready it for receiving 
information by whatever command process the host re- 
quires. Press f C L EAR ] T 51, ( clea r T^ to turn on your 
file. When the transmission is complete, turn OFF the hand- 
shake mode by pressing : c L E~A R ] SHIFT ] C*D then 
(CL EAR! C- ;. Close the file at the host end by whatever 
command process the host accepts. Then close your send 
file by pressing ( C"L~E A R ] (3D then fC L E a r ] 3D 1 - This 
turns off the "Data Send" Device (*FS) and closes the file. 

The procedure for receiving a file is similar. Use the 
commands established by the host to call up the file you want 
to download. Identify your receive file by pressing fC L E AF 
CJD, fc L E A" r~ i C~9P and then entering the filename in re- 
sponse to the prompt. (~c ~L E A R 1 3D followed by ( cl ear; ] 
CC will open the receive area of memory. When you press 
(~E""N T E~R~P the file will begin listing. To write the file to disk 
as it is being received press (~C~L EAR! CD followed by 
(CLE AR) Q_]. If you are running your RS-232 port above 
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300 baud, you should wait until you receive the entire file 
before turning DTD ON. When the listing is complete, press 
:t L E ARi Qb_ followed by .cl earj ." i to turn OFF the 
"Data Receive" Device (*FR) and if you have not already 
done so, press clear j_ followed by cl ear C ;~? to 
write the file to disk. After disk write has been completed, 
press CCLT AR) ; 6") then i. Cl EX AJD GD to turn off DTD and 
to close the receive file. 

STARTUP PROCEDURE 

And now for the startup procedure. This procedure is 
fairly simple but by using some additional TRSDOS 6.0 utili- 
ties, you can make it even simpler. The additional utilities can 
be used to establish control keys with which you can initialize 
COMM or you can setup an AUTO command that will load 
COMM each time the disk is booted. If you plan to use the 
COMM utility frequently, we think you w-ll find creating the 
AUTO command, and thereby setting aside one disk as your 
communications disk, will save you time and frustration. 

First the utility COM/DVR must be set to the communica- 
tions line device (*CL). (Non U.S. residentsare referred to the 
manual for special instructions.) This is accomplished easily 
enough. At TRSDOS ready, simply type: 

SET *CL TO COM/DVR 

After a little whirling of the disk drives, you will see the 
message "COM driver is now resident." 

BUILDING A KSM FILE 

At this point the instruct ons in the manual would have 
you type in SETCOM and its parameters and then COMM 
with its devspec and parameters. Instead, we opted to use 
BUILD to write a KSM file. KSM stands for Key Stroke Multi- 
ply. We will use the KSM/FLT (Key Stroke Multiply Filter) to 
assign the SETCOM and COMM command lines to a single 
key each so that we will only have to press CL E A~R and the 
assigned key to execute the commands. 

At TRSDOS Ready, type: 

BUILD SYSTEM/KSM 

The screen will display: 

Building SYSTEM/KSM:0 

A = > 

The cursor will appear beside the A=>. Type the 
following: 

SETCOM (BAUD = 300.WORD = 7.STOP = 1. 

PARITY = ON): 

Be very sure you include the semicolon at the end. The 
semicolon will cause an e nTe.r to be executed at the end 
of the line. (The SETCOM parameters are our choice, the 
ones we use most often. You will want to select the parame- 
ters appropriate to your needs. For example, if you want to 
establish an AUTO load but access a bulletin board with 
unusual parameters, you may want to setup two disks. One 
for communicating with the bulletin board and one which 
contains the SETCOM parameters you use with other sys- 
tems.) After typing the semicolon, press E nt er and you 
will see the prompt: 

B = > 

Type the following: 

COMM *CL(XLATES = X'aabb, XLATER = X'aabb'. 

XON = X , cc\XOFF = X'cc'.NULL = OFF); 

Remember to include the semicolon at the end of the line 
before pressing e"n t e R . 



XLATES and XLATER are used to translate characters 
sent or received that are not available on your keyboard. For 
example, if you are using COMM as a terminal to communi- 
cate with another computer and you want to print a right 
bracket (]), you can use the XLATES parameter to produce a 
(]) by entering another character. If you were to type 
XLATES = X'025D' in your parameters, when you pressed 
fCTRTD CBD (hexadecimal 02), your computer would send 
the code for a right bracket (hexadecimal 5D) to the other 
computer. Characters you receive from another computer 
can be translated to a different symbol using XLATER. (Your 
Model 4 Owners Manual should have a list of characters and 
their hex values in the Appendix.) 

That's your KSM file. To exit simply press fsTi i F T") 
fCTRT I fJ£D simultaneously. Now, in order to get your com- 
puter to read this file, you must make a connection between it 
and KSM/FLT. To do this type: 

SET *KS KSM/FLT USING SYSTEM/KSM 

Then: 

FILTER *KI TO *KS 

You can verify that your KSM file has been established by 
pressing [CLEARS f A"). The SETCOM command you en- 
tered at the A = > prompt should appear on the screen and be 
implemented. If this does not occur, you may need to deacti- 
vate the KSM filter before a new connection can be made. To 
deactivate the KSM filter and change to your new KSM file, 
type: 

RESET *KI 

RESET *KS 

Then retype the "SET *KS . .. " and "FILTER 
commands listed above. Once you have verified that your 
:C_L E A RJ CAj and ;ciE A 'ffr GIL 1 commands work, type: 

SYSGEN (YES) 

With this command you will create a file of current device 
and driver configurations. Each time you reset your com- 
puter, the configuration just established will be loaded into 
memory. This will insure that the KSM/FLT will continue to 
read your SYSTEM/KSM file. Any time you want to remove 
the configuration, type SYSGEN (NO). 

ESTABLISHING AUTO LOAD 

At this point you could load COMM by typing (CLEAR': 
CE and 'cTTAR'j CJD at TRSDOS Ready. However, only 
two more steps are needed to set up an AUTO load. First, 
build a Job Control File. Type: 

BUILD SYSTEM/JCL 

The computer will respond with: 

Building SYSTEM/JCL 

Press (~C LEAR") CAj and your SETCOM command line 
is entered as the first line of your Job Control File. Press 
; c L E A" R~) CBj and the COMM command appears as the 
second line. Finish this file by typing: 

//STOP 

Press :enteR1 and exit using C£H ! FT re t R l i 
C^.. COMM can now be loaded each time the disk is booted 
by typing "DO SYSTEM JCL"— but why stop here? To com- 
plete the final step and establish an AUTO load type: 

AUTO *DO SYSTEM/JCL 

The COMM utility which comes with the TRSDOS 6.0 
Operating System for the Model 4 is now resident. Each time 
you boot your disk, the COMM utility will be automatically 
loaded. If you plan ahead properly, have the files you want to 
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send set up in ASCII files and have your printer primed and 
ready, your communications activities should be a breeze. Of 
course, we have only given you a sampleof COMM's capabi- 
lities. Read about it m your manual and see just how versatile 
it can be. We think you'll find this utility a very welcome bonus 
with TRSDOS 6.0. J3 



Oklahoma Reports and 

Current Bar Charts 
Available 



LIVESTOCK AND GRAIN ANALYSIS AVAILABLE 
FROM OKLAHOMA STATE 

Livestock and grain analysis is now being offered by the 
Department of Agricultural Economics at Oklahoma State 
University on AgriStar. Because three-quarters of Oklaho- 
ma's agricultural income is generated by these two commo- 
dities, agricultural economists have made a commitment to 
provide market analysis and outlook for cattle and grains. 

Short-term analyses of cattle and wheat markets are 
prepared each Friday, and report the major factors affecting 
market trends for the past week and projections of prices for 
the coming week. 

Oklahoma reports follow USDA livestock and grain re- 
ports, and provide analyses of monthly Cattle on Feed, bian- 
nual Cattle Inventory, Hogs and Pigs reports and grain 
reports. Oklahoma analyses are prepared on the date of the 
governmental report release 

John Ikerd, extension economist at Oklahoma, said that 
producers want to look at a variety of sources when making 
marketing decisions, and that Oklahoma's reports provide 
"information as good as a producer can get anywhere." 

To access Oklahoma information, enter OKLAHO- 
MA.UNIVERSITY or OKLAHOMA. STATE at any AgriScan for 
a menu of reports. There has been an Information Service 
Charge for these reports since November 15. 1983. 

CURRENT BAR CHARTS 

For your convenience, we have listed the most recently 
added bar charts and their codes. Because new bar charts 
become available when contract months begin trading, this 
list can be used as a handy access guide. 

If the contract is new, there won't be a historical bar chart 
for it. However, if you do try to access a historical bar chart 
and it is not yet available, there will not be an Information 
Service charge. 

AUG84 LIVE CATTLE TFC428 

OCT84 HOGS TFC429 

DEC84 HOGS TFC430 

SEP84 SOYBEANS TFC431 

NOV84 SOYBEANS TFC432 

SEP84 SOYMEAL TFC433 

OCT84 SOYMEAL TFC434 

DEC84 SOYMEAL TFC435 

SEP84 WHEAT TFC436 

DEC84 WHEAT TFC492 

SEP84 CORN TFC437 



DEC84 


CORN 


TFC438 


SEP85 


T-BILLS 


TFC484 


AUG84 


FEEDER CATTLE 


TFC480 


MAR85 


COTTON 


TFC488 



AgriStar is available at Radio Shack Computer Stores. 
Interested farmers may stop by their local Radio Shack Com- 
puter Center for a free demonstration. ^3 



Inside the PC-2 



Don Durham 

2572 Don Krag Cir. W. 

Memphis, TN 38106 



This one is for all you hackers who just can't stand not 
knowing what makes your computer tick. Having bought my 
first home computer back when you had to know what made 
it tick or it didn't tick at all. I developed a burning curiosity 
about the innards of the little beasts. What a frustrating feeling 
when I got my PC-2 and was only able to turn t on and 
program 1 in BASIC! Fortunately, it did have the old standby 
PEEK and POKE commands. 

Armed with this tool. I did some peeking around in 
memory and discovered the BASIC command table, how a 
BASIC program is put together, and a few other minor things. 
It was not until Bruce Elliott's excellent articles on PC-2 As- 
sembly Language, however, that I began to see what a 
marvel this little jewel really s. 

It didn't take but a couple of hours till hand disassem- 
bling some of the routines in ROM got to be a real drag, and 
so I set out to write a disassembler. Like the saying goes. "It 
ain't elegant, but it works." Basically, the program is a table 
lookup. It reads an op-code and indexes into a table of 
numbers which represents how the particular instruction is 
formatted. Based on this number, it gets the mnemonic from 
another table, picks up any remaining bytes the instruction 
needs, reads the register name from the DATA statements, 
and builds the instruction string. At the same time, i >s printing 
the ASCII equivalent of the bytes obtained from (where else 9 ) 
another table At first I was calculating these as I went, but that 
was too slow. 

As the program is configured now, it will print one instruc- 
tion about every 2 to 3 seconds. Not really lightning fast, but it 
sure beats doing it by hand. The program requires at least a 
4K add-on memory and, of course, the printer/cassette 
interface. 

There are a couple of things to note about the format of 
the instructions as they are printed. The vectored calls, VEJ. 
VMJ, etc., which are one and two byte instructions, pick up 
their real destination addresses from page FF in memory! 
have formatted these so that the real address is printed rather 
than the page FF reference. The relative branch instructions 
have been treated n a similar manner, so that their real 
destination addresses are printed. I retained the " + " or " 
so that you immediately see whether the reference is forward 
or backward. This probably wouldn't conform to the input 
format for an assembler, but it is handy. 

For those areas of memory which are data storage or 
work areas, there is also a section of the program wlrch gives 
a dump of memory in both hex and ASCII. More about that 
later. 



TRS-80 Microcomputer News. February 1984 



39 



Getting the program and its data tables together is a little 
tricky, but once it's done, it's better than having all the data in 
DATA statements and reading the arrays each time the pro- 
gram is run. The main program is shown in Listing 1 — 
DISASSEMBLER. It should be typed in first and saved on a 
new tape. After saving it and verifying that the save is good 
(CLOAD?), type NEW and enter Listing 2— TABLEBUILD (to 
build the tables). Position the original program tape to the 
point where the saved program ends then run this program 
with the recorder set to RECORD mode, and the computer 
remote control on. The tables will be saved and then when 
the DISASSEMBLER program is run, the tables can be read 
by just pressing ENTER when the message READ TABLES is 
displayed. Once the program and tables have been loaded 
into memory, using the (DEF l CB sequence to start the 
program will leave all the tables intact and they will not have to 
be reloaded. Of course, the RUN or NEW commands will 
wipe out the tables. 

By the way, you did save the TABLEBUI LD program on a 
separate cassette in case you should ever blow the tables, 
didn't you? 

When the program comes up, it checks the variable R1 . 
If R 1 is equal to 1 , then the tables are probably intact, since 
the RUN and NEW commands would set it to zero. If the 
tables are not in memory, you will be prompted to read them 
in. If all is well, you will be asked for a beginning address. 
Input addresses may be specified in hex if they are preceded 
by an ampersand (&). You will then be asked for an ending 
address. Next you'll be asked for the color you want the listing 
in (varying the color helps even the replacement time of 
the pens). After entering the color, you may select 1 for 
DISASSEMBLY or 2 for DUMP. Now you can sit back and 
relax while your electronic wizard reveals all. 

Starting Address 65500 
Ending Address 65510 



1 . DISASM 






FFDC 


DE 


VEJ 


D6DF 


FFDD 


BC * UNKNOWN 


OPCODE 


* 


FFDE 


06 


VEJ 


DED1 


FFDF 


DF 


DEC 


A 


FFE0 


CD 8B 


VMJ 


5BEE 


FFE2 


C4 


VEJ 


DCD5 


FFE3 


00 


SBC 


XL 


FFE4 


CD 89 


VMJ 


F6ED 


FFE6 


F7 


CIN 





2. DUMP 

FFDC DEBC D6DF CD8B C400 

FFE4 CD89 F70D F661 F79C •• 

Starting Address 63500 
Ending Address 63510 

1 . DISASM 



F80C 


FF * UNKNOWN 


OPCODE 


* 


F80D 


FB 


SEC 




F80E 


12 


ADC 


YL 


F80F 


1A 


STA 


YL 


F810 


6A 06 


LDI 


UL.06 


F812 


14 


LDA 


YL 


F813 


B9 07 


ANI 


A, 07 


F815 


8B 01 


BZS 


+.F818 


2. DUMP 









F80C FFFB 121A 6A06 14B9 j~ 

F814 078B 0157 4388 099A — WC-- 

You know, it's getting to be a real drag writing Assembler 
Language programs and entering the hex code by hand. 
Anybody out there working on an assembler in BASIC? 

LISTING 1 -DISASSEMBLER 

10 "D" 

: IF Rl - 1 GOTO "RDY" 
20 CLEAR 

: DIM MN$(81) * 3 ,CD( 255 ) ,FD( 255 ) ,HX$ ( 255 ) * 2 
30 WAIT 

: PRINT "READ TABLES" 

: WAIT 
40 INPUT #"DISTBL";MN$(*),CD(*),FD(*),HX$(*) 

: Rl - 1 

: GOTO "RDY" 
50 "TWOHX" 

T$ - "" 

V - INT (H/4100) 
GOSUB "ONEHX" 

V - H - (V * &100) 
60 "ONEHX" 

: T$ - T$ ♦ HX$(V) 
: RETURN 
70 "NORM" 

RESTORE 
T$ - "" 

V - B 

GOSUB "ONEHX" 
LPRINT T$ + " "; 
A - A ♦ 1 
C - CD(B) 

80 IF C - LPRINT "* UNKNOWN OPCODE *" 

: RETURN 
90 X - C AND &7F 

B$ - MN$(X) + " " 

C - INT (C/2"7) 

IF C - TAB 21 

LPRINT B$ 

RETURN 
100 IF MN$(X) <> "VEJ" GOTO 120 
110 V - &FF00 + B 

H - PEEK (V) * 256 > PEEK (V + 1) 

GOSUB "TWOHX" 

TAB 21 

LPRINT B$ ♦ T$ 

RETURN 
120 IF LEFT$ (MN$(X),1) <> "V" GOTO 140 
130 B - PEEK (A) 

T$ - "" 

V - B 

GOSUB "ONEHX" 
LPRINT T$; 
A - A + 1 
GOTO 110 

140 X - C AND &1F 

: IF X - LET R$ - "" 

: GOTO "R2" 

150 FOR I - 1 TO X 

READ R$ 

NEXT I 

IF D - 1 LET B$ - B$ ♦ "#" 

D - 

160 IF R$ <> "XX" GOTO 200 

170 H - (PEEK (A) * 256) ♦ PEEK (A ♦ 1 ) 

: GOSUB "TWOHX" 

: R$ - "(" ♦ T$ + ")" 

180 GOSUB 190 

: GOTO 200 

190 FOR J - 1 TO 2 

: V - PEEK (A) 
. T$ . .... 
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200 
210 



220 
230 
240 



250 

260 
270 
280 



290 V 



300 



310 
320 



330 
340 
350 



GOSUB "ONEHX" 

LPRINT T$ + " " 

A - A + 1 

NEXT J 

RETURN 
B$ =■ B$ + R$ 
"R2" 

X - INT (C/2"5) 

IF X = TAB 21 

LPRINT B$ 

RETURN 
IF R$ <> 



LET B$ - B$ 
X <> 1 GOTO 310 

PEEK (A) 
T$ - "•• 

GOSUB "ONEHX" 
LPRINT T$; 
IF R$ - "+" LET H 

: GOTO 280 
IF R$ <> "-" GOTO 291 
H ■ A - PEEK (A) + 1 
GOSUB "TWOHX" 
: B$ - B$ + T$ 
: GOTO 300 
PEEK (A) 
T$ - "" 
GOSUB "ONEHX" 
B$ - B$ + T$ 
TAB 21 

LPRINT B$ 
A - A + 1 
RETURN 
IF X <> 3 GOTO 330 
B$ - B$ + " " + T$ 
TAB 21 
LPRINT B$ 
RETURN 
H - (PEEK (A) 
: GOSUB "TWOHX" 
: B$ - B$ + T$ 
GOSUB 190 
: A - A - 1 
: GOTO 300 
"ROY" 
CLS 

WAIT 
RESTORE 
CLS 

: INPUT "START ADDRESS ";A 
INPUT "END ADDRESS ";E 
E < A GOTO 360 



A + PEEK (A) + 1 



256) + PEEK (A + 1) 



360 

370 

380 INPUT "COLOR (0-3) ";C 

390 



IF 



: IF 
COLOR 



C < OR C > 3 GOTO 380 
C 
CSIZE 1 
TAB 
LF 2 
400 INPUT "DISASM 1. DUMP 2. ";C 

: IF C - 2 GOTO "DUMP" 
410 "DIS" 

: D - 

: IF A > E GOTO "RDY" 
420 R$ = "" 
430 H = A 

GOSUB "TWOHX" 
LPRINT T$; 
TAB 5 
440 B =■ PEEK (A) 

: IF B » &FD GOTO "FD" 
450 GOSUB "NORM" 

: GOTO "DIS" 
460 "FD" 

LPRINT "FD "; 
D - 1 
A =■ A + 1 
T$ - "" 



470 
480 
490 
500 
510 

520 

530 



540 
550 



■ PEEK (A) 
C ■ FD(B) 
IF C - 1 GOTO 440 



* UNKNOWN OPCODE *' 



560 
570 
580 



590 
600 
610 

620 
630 

640 
650 



: GOSUB "ONEHX" 
: LPRINT T$;" " 
IF C - LPRINT 
: A ■ A + 1 
: GOTO "DIS" 
R - INT (C/100) 
: M = C - R * 100 
: B$ = MN$(M) 
RESTORE "FREG" 

FOR I * 1 TO R 
READ R$ 
NEXT I 
TAB 21 

LPRINT B$;" ";R$ 
A « A + 1 
GOTO "DIS" 
"DUMP" 
H = A 

GOSUB "TWOHX" 
LPRINT T$ + " "; 
FOR K - 1 TO 4 
FOR J ■ 1 TO 2 
V - PEEK (A) 
T$ - "" 
GOSUB "ONEHX" 
LPRINT T$; 
A - A + 1 
NEXT J 
LPRINT " "; 

: NEXT K 
TAB 25 

: FOR J = 8 TO 1 STEP -1 
V » PEEK (A - J) 
: IF V > 31 AND V < 128 LPRINT CHR$ (V); 
: GOTO 600 
LPRINT "-"; 
NEXT J 
LPRINT 

: IF A >= E GOTO "RDY" 
GOTO "DUMP" 
DATA "A" , "XL" , "YL" , "UL" , "XH" , "YH" , "UH" , "(X)" , 

"Of)" , "(U )" , "XX" , "X" , "Y" , "U" 
DATA "S","P" > »+» > »_» j " V » 

"FREG" : DATA "A" , "XH" , "YH" , "UH" , "X" , "Y" , "U" , "S" 
i.p.i ii .. 



LISTING 2-TABLEBUILD 

10 CLEAR 

20 DIM MN$(81) * 3,CD(255),FD(255),HX$(255) * 2 

30 H$ - "0123456789ABCDEF" 

40 WAIT 

50 PRINT "BUILDING HEX TABLE" 

60 FOR I - TO 255 

70 HX$(I) =• MID$ (H$,(I AND &F0)/16 + 1,1) + MID$ 

(H$,(I AND &F) + 1,1) 
80 NEXT I 
90 CLS 

100 PRINT "BUILDING MNEMONIC TABLE" 
110 FOR I = TO 81 
120 READ MN$(I) 
130 NEXT I 
140 CLS 

150 PRINT "BUILDING CD ARRAY" 
160 FOR I - TO 255 
170 READ CD( I) 
180 NEXT I 
190 CLS 

200 PRINT "BUILDING FD ARRAY" 
210 FOR I - TO 255 
220 READ FD(I) 
230 NEXT I 
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240 

250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 



PRINT *»"DISTBL";MN$(*),CD(*),FD(*),HX$(*) 

: END 
DATA "ADC", " AD I", "ADR" 
DATA "DCS","DEC","EAI" 
DATA "ORI","SBC","SBI" 
DATA "CPI","ATT","LDA" 
DATA "LIN","POP","PSH" 
DATA "STX","TTA","AEX" 
DATA "ROL","ROR","SHL" 
DATA "AMI", "ATP", "CD V" 
DATA "OFF","RDP","REC" 
DATA "SDP","SEC","SIE" 
DATA "BCR","BCS","BHR" 
DATA "BZR","BZS","JMP" 
DATA "VCS","VEJ","VHR" 
DATA "VZR","VZS","RTI" 



DATA 269,1037,256,1024 



DATA 1027,285,1035,1030,1033,1053,1040,397 

1172,401,1169,797, 1155 
,1181,1168,525,1293 
529,1297,925, 1283,541 



"AND","ANI" 

"EOR","INC" : 

"BII","BIT" 

"LDE","LDI" 

"SDE","SIN" 

"CIN","DRL" 

"SHR","TIN" 

"HLT","ITA" 

"RIE","RPU" : 

"SPU","SPV" 

"BHS","BVR" 

"LOP","SJP" 

"VHS","VMJ" 

"RTN" 

276,1044,273, 1041 ,669 



"DCA" 
"ORA" 
"CPA" 
"LDX" 
"STA" 
"DRR" 
"AM0" 
"NOP" 
"RPV" 
"BCH" 
"BVS" 
"VCR" 
"WS" 



DATA 1165,384, 1152,404 
DATA 413, 1163,1158,1161 
DATA 512,1280,532,131 

DATA 1291 ,1286,1289, 1309,1296,0,0,0,0,0,0,0 
DATA 0,47,0,0,0,0,0,0,0,266,1564,263,1563 
DATA 1546,1560,1543,155 7,4758,5124,4374,5132 
DATA 4754,5135,4370,5121 ,394,1692,391 ,1691 
DATA 1674,1688,1671 ,1685,4886,5252,4502,5260 
DATA 4882,5263,4498,5249,522,1820,519, 1319 
DATA 1802, 1816,1799, 1813,5014,5380,46 30,5388 
DATA 5010,5391 ,4626,537 7,0,0,0,0,0,0,0,0,0,0 
DATA 0,0,0,0,0,0,653,6332,640,6333,660,6334 
DATA 65 7,6367,4677,6338,80,6339, 1029,6336 
DATA 6331 ,6337,781 ,6460,768,6461 ,788,6462 
DATA 785,6463,0,6466,81 ,6467,1157,6464,6459 
DATA 6465,909,1421 ,896, 1408,916,1428,913,1425 
DATA 58,1411 ,10134,1419,1285,1417, 1437, 1424 
DATA 0,4238,0,4225,0,4246,0,4242,53,4228,8260 
DATA 4236,0,4104,8262,4239,12361,4167,12361 
DATA 4168, 12361 ,4170, 12361 ,4171 , 12 361 ,4174 
DATA 12361 ,4175, 12361 ,4172,12361,4173,12361 
DATA 37,12361 , 1059,12361 ,39,12361 , 1058,12361 
DATA 38, 12361 ,36, 12361 ,138,12361 ,135, 12361 
DATA 57, 12 361 ,52, 12361 ,0, 12361 ,0, 12361 ,5508 
DATA 12 361 ,5516, 12361 ,5519, 12361 ,5505, 12361 
DATA 32,12361,0,12361,40,12361,33,0,50,0,55 
DATA 0,0,0,0 

0,1,623,1,525,1,1,1,1,1,0 
1,623,1,625,1,1,1,1,1,0 
1 ,3, 1 ,725, 1, 1 , 1 ,1, 1,0,0,0 
0,0,0,0,0,0,0,210,0,207,0 
1,530, 1 , 1048,1,830, 1,310,0 
0,923, 1 ,623, 1 ,0, 1 ,930, 1 
0,0,0,0,0,1,730,1,0,1,0,1,0 
.0,0,0,0,0,0,0,0,0,0,1056,0 
DATA 0,0, 0,0, 0,526,0, 125, 0,1,0, 1044, 0,0, 0,0 
DATA 0,0, 0,0, 0,626, 0,0, 0,1, 0,0, 0,0, 1,0, 1,0,1 
DATA 0,1,726, 1,1031 , 1 , 1 , 1 , 1, 1,0, 1045,0,0,0,0 
DATA 0,0,0,0, 1046,0,0,0, 1051 ,0, 1049,1054 
DATA 0,0,0,0,0,0,126,0,502,0,1043,0, 1041,0,0 
DATA 0,0, 1,0, 0,0, 1,0, 0,602, 0,0,0, 1042, 0,0,0 
DATA 0,0,0,0,0,0,0,1,702,1,1019,1,0,1,0,0,0 
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0 J& 



DATA 0,1,0,1,0,1 
DATA 1,0, 1,0,1,0 
DATA 1,0,1,0,1,0 
DATA 0,0,0,0,0,0 
DATA 0,0,0,0,82 3 
DATA 307,0,0,0,0 
DATA 410,0,407,0 
DATA 0,0,0,0.0,0 



PC-2 Renumber 



bage throughout memory. An ALL RESET which destroys the 
program is required to recover. 

I am enclosing a safer program which uses STATUS 2 to 
determine the end of the program and STATUS 2 minus 
STATUS 1 to find the beginning. Because the FOR loop is all 
one statement, it will safely renumber itself. The third argu- 
ment of POKE demonstrates an occasionally useful trick — 
the value of I is ANDed with hexadecimal &FF to give the 
result modulo 256. This is much simpler than the division, INT, 
multiplication, and subtraction that would otherwise be 
required. 

The line numbers are arbitrary. The program is executed 
by pressing "DEF" then "N" in the RUN mode. 

One final caution, the program merely renumbers the 
lines of your program. It does NOT correct any statements 
that refer to absolute line numbers, i.e. , in GOTO's, GOSUBs, 
or RESTORE's. But absolute line numbers are a deplorable 
programming practice, particularly since the PC-2 allows 
nice long statement labels. 

540 "N" 

: REM RENUMBER LINES 
550 J-STATUS 2-STATUS 1 

: REM Start of program area 
560 FOR 1-10 to 32750 STEP 10 

: POKE J, INT (1/256), I AND S.FF 
565 J=J + 3 + PEEK (J+2) 

: IF J< (STATUS 2)-2 NEXT I 
570 BEEP 3 

: END J3 



HEARTS 



(From page 11) 



R. R. Jueneman 
1522 Hardwood Lane 
McLean, VA 22102 



180 IF Al > 57 THEN 130 

190 GOTO 150 

200 DATA 57,3,2,3,2,4,2,3,2,4,2,3,2,4,2,3,2,4,2,3.2, 

3,2,4,1,4,2,4,1,4,2,4,1,4,2,4,1,4,2,4,1,4,2 
210 DATA 2,9,2,9,2,9,2,9,2,9,2,3,7,4,7,4,7,4,7,4,7,3 

,4,5,6,5,6,5,6,5,6,5,4 
220 DATA 5,3,8,3,8,3,8,3,8,3,5,6,1,10,1,10,1,10,1,10, 

1 ,6,57 
230 DATA 3,2,3,2,3,31,3,2,3,2,3,2,4,1,4,2,31,2,4,1,4, 

2,2,9,2,6,5,9,5,6,2,9,2,3,7,3,5,7,7,7,5,3,7,3 
240 DATA 4,5,4,4,9,5,9,4,4,5,4,5,3,5,3,11,3,11,3,5,3, 

5,6,1,6,3,12,1,12,3,6,1,6,13,3,25,3,13 
250 DA1A 3,2,3,2,3,3,25,3,3,2,3,2,3,2,4,1,4,2,4,23,4, 

2,4,1,4,2,2,9,2,5,21,5,2,9,2,3,7,3,6,19,6,3,7,3 
260 DATA 4,5,4,7,17,7,4,5,4,5,3,5,8,15,8,5,3,5,6,1,6, 

9,13,9,6,1,6,13,10,11,10,13 
270 DATA 3,2,3,2,3,11,9,11,3,2,3,2,3,2,4,1,4,2,12,7, 

12, 2, 4, 1,4, 2, 2, 9, 2, 13, 5, 13, 2, 9, 2, 3, 7, 3, 14, 3, 14, 3, 

1 ,3 
280 DATA 4,5,4,15,1,15,4,5,4,5,3,5,31,5,3,5,6,1,6,31, 

6,1,6 
290 DATA 57,3,2,3,2,4,2,3,2,4,2,3,2,4,2,3,2,4,2,3,2,3 

,2,4,1,4,2,4,1,4,2,4,1,4,2,4,1,4,2,4,1,4.2 
300 DATA 2,9,2,9,2,9,2,9,2,9,2,3,7,4,7,4,7,4,7,4,7,3, 

4,5,6,5,6,5,6,5,6,5,4 
310 DATA 5,3,8,3,8,3,8,3,8,3,5,6,1,10,1,10,1,10,1,10, 

1 ,6,57 
320 END J3 



The February 1983 issue of TRS-80 Microcomputer 
News contained a program to renumber BASIC lines for the 
PC-2. Unfortunately, when used with the 8K RAM chip, the 
starting address is incorrect, and the program POKES gar- 
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Pocket Computer 



PC-2 Assembly Language-Part 6 



By Bruce Elliott 



This is the sixth in a series of articles which describe the 
MPU (microprocessor unit) used in the Radio Shack PC-2 
pocket computer. It is our intention to include specific infor- 
mation about the 8-bit CMOS microprocessor, the machine 
code used by the microprocessor, as well as information 
about the PC-2 memory map, and certain ROM calls which 
are available. Please realize that much of what we are talking 
about refers to the overall capabilities of the MPU. and does 
not imply that all of these things can be done with a PC-2. 

The information provided in these articles is the only 
information which 's available. We will try to clarify any ambi- 
guities which occur in the articles, but can not reply to ques- 
tions outside the scope of these articles. Further, published 
copies of TRS-80 Microcomputer News are the only source of 
this information, and we will not be maintaining back issues. 

In this article we want to present information on some of 
the PC-2 ROM calls which are available. 

When you are going to use a ROM call, there are four 
items which you want to be concerned with: 

1 . Entry Address 

2. Entry Conditions 

3. Exit Conditions 

4. Flags 

The Entry Address is the address you use in the CALL 
statement from BASIC or a SJP call from machine language. 

The Entry Conditions are conditions you must fulfill if the 
routine is to function properly. Normally, entry conditions 
specify where information must be and what information you 
must put in the MPU registers for the routine to function 
properly. 

The Exit Conditions tell you where you will find the result 
of the operation (if there is a result) or provide you with other 
information about how things will change as a result of using a 
particular ROM call. 

If a ROM call makes particular changes to any of the 
machine's flags, this information will be noted so you can 
properly interpret the results you get. 

A CAUTION 

I have not had time to test the information which is 
provided below on ROM calls. The information provided is as 
accurate as I could make it from the materials I am working 
with. Test any ROM call for proper operation BEFORE you 
use it in a program. Remember that the 'H' following a 
numeral indicates hexadecimal notation. 

CURSOR INFORMATION 

The PC-2 cursor pointer is located at 7875H. This loca- 
tion is used by the PC-2 to keep track of where the cursor 
should be. If you are working exclusively in machine lan- 
guage, updating 7875H is all that is needed for cursor 
location. 



If you are working from BASIC, and wish to update the 
cursor location directly using POKEs or CALLs, you must 
also set bit of location 7874H. Setting this bit from machine 
language can be accomplished by: 

ORI 7874H, 01 H 

This operation is done automatically when you use the 
CURSOR or GCURSOR BASIC commands. 

If you execute a ROM call which resets the cursor pointer 
and are going to return to BASIC, you must set bit of 
location 7874H as described above. 

If you wish to reset the cursor from machine language, 
you can use the following code: 

ANI 7874H, OFEH 

ANI 7875H, 00H 

To increment the cursor pointer, use the following: 
If you are displaying characters: 

(7875H) = (7875H) + 06H 
If you are displaying graphics: 

(7875H) = (7875H) + 01 H 
Note: (7875H) must be between 00H and 9BH. 

SYSTEM CALLS FOR THE LCD DISPLAY 

Output one character to the LCD 

1 . System call address: ED57H 

2. Entry Conditions: 

a. The ASCII character code for the character to be 
displayed must be in the ACC (Accumulator) before 
making the call. 

b. The location where the character will be placed is 
determined by the content of the cursor pointer. 

3. Exit Conditions: The cursor pointer does not change. 

4. Flags: Carry = The cursor stays between 00H and 95H 

on call. 
= 1 The cursor stays in 96H on the call. 
Output one character to the LCD and increment the 
cursor position by one character (6H). 

1. System call address: ED4DH 

2. Entry Conditions: The ASCII character code for the char- 
acter to be displayed must be in the ACC (Accumulator) 
before making the call. 

3. Exit Conditions. If the cursor position before the call was in 
the range 00H to 95H , then the new cursor position equals 
the old position plus 6H. If the cursor position before the 
call was 96H or larger, then the new cursor position is set 
equal to zero. 

4. Flags: 

Outputting n characters to the LCD. 

1 . System call address: ED00H 

2. Entry Conditions: 

a. The 16 bit starting address for the string to be dis- 
played is placed in the U register (0000H < = U < = 
FFFFH). 
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b. The length of the character string is placed in the 
Accumulator (01 H < = ACC < - 1AH). 

c. The cursor pointer indicates where on the LCD the 
computer is to begin displaying the string. 

3. Exit Conditions: The cursor pointer is updated. 

4. Flags: Carry = The cursor position is set to the right- 

most end of the displayed character 
string on the LCD. 
= 1 The specified character string ended in 
the 26th LCD column, or the string was 
too long to be displayed within 26 col- 
umns. The cursor will be steady, indica- 
ting the last character displayed. 
The number of characters specified in the accumulator is 
output from consecutive addresses beginning with the ad- 
dress specified in the U register. The characters will be placed 
on the LCD beginning with the position indicated by the 
cursor pointer. The cursor pointer can be set from machine 
language, or by using the BASIC CURSOR or GCURSOR 
commands. If the information to be displayed exceeds the 
156th dot on the LCD, the excess information will not be 
displayed. 

Outputting n characters to the LCD beginning from char- 
acter position 1 . 

1. System call address: ED3BH 

2. Entry Conditions: 

a. The 16 bit beginning address location of the string to 
be displayed is stored in the U register (0000H < = U 
<= FFFFH). 

b. An 8 bit number indicating the length of the character 
string is stored in XL (The lower half of the X register. 
01H <= XL <= 1AH). 

3. Exit Conditions: 

4. Flags: Carry = The character string has been dis- 

played in 25 or fewer columns. 
= 1 The character string reached or ex- 
ceeded the 26th column. 
Transferring 1 byte of data (1 dot column of graphic 
information) to the current cursor position. 

1. System call address: EDEFH 

2. Entry Conditions: The byte representing the graphic pat- 
tern to be displayed is placed in the accumulator. 

3. Exit Conditions: 

a. The data is transferred to the current cursor position, 
which does not change. 

b. The contents of ACC and the X and U registers may 
change. 

c. The content of the Y register will not change. 

4. Flags: 

DATA CONVERSIONS 

Converting two bytes of ASCII code (0 - 9, A • F only) into 
a one byte hexadecimal value. 

1 . System call address: ED95H 

2. Entry Conditions: The X register should contain the ad- 
dress of the first of two consecutive bytes in memory which 
contain the ASCII characters. 

3. Exit Conditions: 

a. The X register will be incremented by 2 

b. The U and Y registers will be unchanged 

c. The ACC will contain the converted hex value. 

4. Flags: 



DISPLAY THROUGH A BUFFER 

Data can be placed into an 80-byte buffer (7BB0H - 
7BFFH) and then displayed as needed by specifying the 
proper cursor address in the buffer. 

1 . System call address: E8CAH 

2. Entry Conditions: 

a. Any character string which is placed in the buffer must 
have a ODH code as the last character. This means 
that the longest allowable character string is 79 char- 
acters plus the ODH end code. 

b. The Y register holds the cursor pointer for the buffer. 
The documentation does not specify what value goes 
into Y. Since Y is 1 6 bits long, I presume that you would 
use the actual memory address within the buffer. 

c. Address 7880H contains a parameter which deter- 
mines how the contents of the buffer are to be 
displayed: 

If the binary content of 7880H is 0100 0000. then the 
character string stored in the buffer is output to the 
LCD using the content of the Y register as the cursor 
pointer. 

Note: If the number of characters in the buffer is 26 or 
less, then all of the characters are displayed on the 
LCD starting from the left side of the LCD. The cursor 
pointer (7875H) has no effect on this operation. If the 
number of characters in the buffer is greater than 26, 
the character in the address specified by the Y register 
and the PRECEDING 25 characters are displayed on 
the LCD starting at the left side of the LCD. 

If the binary content of 7880H is 0000 0000, then the 
cursor pointer in the Y register is ignored and he firs^ 
26 characters stored in the buffer are output to the 
LCD. 

If the binary content of 7880H is 0010 0000, then 
numeric data stored in memory addresses 7A00H - 
7A07H are output to the LCD. 

Note: See below for a discussion of the 7A00H - 
7A07H buffer. 

3. Exit Conditions: 

4. Flags: 

The 7A00H - 7A07H Buffer 

The PC-2 documentation describes three possible sets 
of data for the 7A00H buffer: 

Decimal Values: 

A decimal value may fall into the range 
9.999999999 X10E99 = x= 9.999999999 x 10E99. 

7A00H contains the exponent (negative exponents are ex- 
pressed as complements: 03H = x10E3, 1FH = 
X10E31, and FFH = x10E-1) 

7A01H contains the sign of the mantissa (00H = +.80H ■ -) 

7A02H - 7A06H contains the mantissa. 

7A07H contains 00H. 

Examples 

7A00H 7A07H 

00H 00H 00H 00H 00H 00H 00H 00H = 0.0 

00H 00H 12H 34H 50H 00H 00H 00H = 1.2345 

FEH 00H 98H 76H 54H 32H 12H 00H = 0.9876543212 

08H 80H 54H 32H 00H 00H 00H 00H = -5.432 x 10 
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Integer Values: 

An integer value may fall into the range -32768 < - x < = 

32767. 

7A00H — 7A03H - Don't Care 

7A04H-B2H 

7A05H — 7A06H Binary number in complements (e.g. 00H 
00H = 0, FFH FBH = -5, 7FH FFH = 32767) 

7A07H- Don't Care 

Character Strings: 

7A00H — 7A03H — Don't Care 

7A04H-D0H 

7A05H — Upper two bytes of string address in memory 

7A06H — Lower two bytes of string address in memory 

(string address can be in the range 0000H - FFFFH) 

7A07H — Length of the string (range 01 H - 50H) 

Note: This last set of conditions (for strings) seems to 
imply that a string buffer can be anyplace in memory, 
rather than being restricted to 7BB0H - 7BFFH. Test this 
before relying on it. 

CASSETTE I/O AND CONTROL 

During tape I/O activities, the paper feed action of the 
printer is inhibited. 
Turn Tape Drive On 

1 . System call address: BF1 1 H 

2. Entry Conditions: Memory address 7879H is used to spec- 
ify certain conditions: 

Bit 7:0 = CMT input port closes; select for CMT input. 

1 = CMT input port opens; select 1 for CMT input. 
Bit 4: = Remote 

1 ■ Remote 1 

3. Exit Conditions: 
4 Flags: 

Turn Tape Drive Off 

1 . System call address: BF43H 

2. Entry Conditions: 

3. Exit Conditions: Remote drive is turned off uncondition- 
ally. Remote drive 1 is turned off or on depending on bit 7 of 
an unspecified address (probably 7879H). If bit 7 is the 
drive is OFF, and if bit 7 is a 1 then, the drive is ON. This bit 
can be set using the BASIC commands RMT ON and RMT 
OFF. 

4. Flags: 

Construct Tape Synchronization Header 

The header, a 40-byte data set, consists of the synchroni- 
zation header, a file name, file mode, and other data. This 
header is created inside the computer (addresses 7B60H - 
7B87H) and output to tape. 

1 . System call address: BBD6H 

2. Entry Conditions: The file mode (00 = Machine Object, 
01 = Program, 02 = Reserve, 04 = Data) must be placed in 
the accumulator. 

3. Exit Conditions: 

a. An 8 byte synchronization header will be in 7B60H - 
7B67H 

b. File mode will be in 7B68H 

c. 00H characters will be placed in locations 7B69H - 
7B87H. 



4. Flags: 

A program file name (16 or fewer characters) can be 
placed in memory locations 7B69H - 7B78H, if you wish. 
Address locations 7B79H - 7B87H may be used for your own 
purposes. 

Output Tape Synchronization Header 

1 . System call address: BCE8H 

2. Entry Conditions: 

a. Bit seven of address 7879H must be zero and bit four 
will be a zero for remote and a one for remote 1 . 

b. Whether the PC-2 will beep or not during cassette I/O 
is controlled by the BASIC commands BEEP ON and 
BEEP OFF, or by setting bit zero of 786BH. 

3. Exit Conditions: 

4. Flags: 

Send a Character to Tape 

1 . System call address: BDCCH 

2. Entry Conditions: Character to be output is placed in the 
Accumulator. The call to write the synchronization header 
must be used before outputting data using this system call. 

3. Exit Conditions: 

4. Flags: 

Write a tape file 

Files can be written by specifying the start address of the 
data and the number of bytes to be output. 

1 . System call address: BD3CH 

2. Entry Conditions: 

a. The X register should contain the start address 
(0000H < = X < = FFFFH) for the file to be written. 

b. The U register should contain the number of bytes to 
be written minus one (0000H < = U < = FFFFH). 

3. Exit Conditions: Check sum data is output at the rate of 2 
bytes for each 80 bytes written. The number of check sum 
bytes is not included in the U register number of bytes to be 
output. 

4. Flags. CARRY = if Output ended normally 

= 1 if BREAK key was pressed 

Read Tape Synchronization Header 

Before the header can be read from tape, you must 
construct a header using the BBD6H call. This will specify the 
file type. If you are searching for a particular file, you may 
place the file name in address locations 7B69H - 7B78H. If 
you specify a file name, the tape will be searched for a 
matching name. If you do not specify a file name (file name = 
all 00H characters) then file names will be ignored during 
input. 

1 . System call address: BCE8H 

2. Entry Conditions: 

a. build a header with file type 

b. specify a file name if you wish. 

c. Set 7879H: Bit Seven = 1 
Bit Four = for Remote 

= 1 for Remote 1 
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3. Exit Conditions: 

a. 7B91 H - 7BA0H will contain the 1 6 character file name 
(padded with 00H characters if file name was less than 
16 characters) 

b. 7BA1 H - 7BAFH will contain whatever was in 7B79H - 
7B87H when the file was written to tape. 

4. Flags: Carry = Reading finished 

= 1 BREAK key pressed 

Read a Character from Tape 

1 . System call address: BDFOH 

2. Entry Conditions: 

3. Exit Conditions: The data value read from the tape is 
placed in the accumulator. 

4. Flags: Carry = Byte read properly 
= 1 BREAK key was pressed 

Read a file from tape 

1 . System call address: BD3CH 

2. Entry Conditions: 

a. The X register contains the first memory address 
(0000H < = X < = FFFFH) that the file is to be loaded 
into. 

b. The U register contains the number of bytes minus 
one (0000H < = U < = FFFFH) to be read from tape. 

c. Address 7879H bit seven contains zero 
bit six = for data read 

= 1 for data verify 

3. Exit Conditions: 

a. Check sum information is automatically checked dur- 
ing tape input. 

b. The X register contains the address of the last data 
byte plus one. 

4. Flags: Carry = if loading ended normally 

= 1 abnormal end, check H and V flags 
H = 1 if C = 1 then BREAK key pressed 

= check V flag 
V = 1 if C = 1 and H = then data in memory 
and the data from the tape did not verify 
properly. 
= if C = 1 and H = then a check sum error 
occurred. 

Finishing Tape I/O Activities 

When you are finished using tape I/O you should inform the 
system. 

1 . System call address: BBF5H 

2. Entry Conditions: Bit seven of 7879H should be a zero to 
terminate data output or a one to terminate data input. 

3. Exit Conditions: 

a. The serial port is reset 

b. Printer Paper Feed is enabled 

c. Cassette motor drives are turned off. 

4. Flags: 

BASIC Program Tapes 

The PC-2 creates and reads tapes for BASIC program files 
using the file read and write routines described here. 
Before the synchronization header is written to tape, the 



PC-2 stores the length of the program (in bytes) minus 
one in locations 7B85H and 7B86H. This information is 
then recorded as part of the synchronization information 
for later use in reading the file. When the header informa 
tion is read back during a synchronization header read, 
the length information is in 7BACH and 7BADH. 

KEYBOARD INPUT CALLS 

Scan Keyboard, wait for a key to be pressed 

1 . System call address: E243H 

2. Entry Conditions: 

3. Exit Conditions: 

a. Key code is in the accumulator 

b. r§ h i m , CO £ D . and CWmaD do not cause 
this routine to return. 

c. Auto power off will occur after about seven minutes if no 
key is pressed. 

d. If the BREAK key is entered, execute the following: 
ANI #F00BH. OFDH (FDH E9H FOH OBH FDH) 

4. Flags: Carry = Accumulator has key code 

1 = BREAK key, Accumulator = OEH 

Key Code Table 

1 2 3 4 5 6 7 

SPACE @ P p 

1 (SHIFT) F1 ! 1 A Q a q 

2 (SML) F2 2 B R b r 

3 F3#3CScs 

4 F4 $ 4 D T d t 

5 F5 % 5 E U e u 

6 F6 & 6 F V f v 

7 7 G W g w 
8*- CL (8HXhx 
9 % RCL ) 9 I Y i y 
A 1 CA * : J Z j z 
B T (DEF) + ; K rad k 

C -» INS . < L I 

D ENTER DEL - = M n m 

E BREAK . > N A n 

F OFF MODE / ? o 

Scan keyboard and Return 

1 . System call address: E42CH 

2. Entry Conditions: 

3. Exit Conditions: 

a. If no key was pressed, accumulator = 00H 

b. If a key was pressed, Key code is in accumulator 

4. Flags: 

NUMERIC FUNCTION CALLS 

From the documentation, it appears that numeric func- 
tions are called with the X register pointing to 7A00H - 7A07H 
and the Y register pointing to 7A10H - 7A1 7H if Y is needed. 
Results appear to always be stored in 7A00H - 7A07H. 
Numeric data is stored in these memory areas as previously 
described. 

Two Variable Numeric Functions 



Addition 


X + Y-X 


EFBAH 


Subtraction 


X - Y^X 


EFB6H 


Multiplication 


, X * Y^X 


F01AH 


Division 


X/Y-X 


F084H 


Exponentiation 


XaY-»X 


F89CH 
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Single Variable Numeric Function 



Square Root 


SQR X-X 


Logarithm 


LN X-X 




LOG X-X 


Exponentials 


EXP X-X 




10AX-X 


Sine 


SIN X-X 


Cosine 


COS X-X 


Tangent 


TAN X-X 


Arcsine 


ASN X-»X 


Arccosine 


ACS X-X 


Arctangent 


ATN X-X 




DEG X-X 




DMS X-X 


Absolute Value 


ABS X-X 


Signum Function 


SGN X-X 


Integer Function 


INT X-X 



F0E9H 

F161H 

F165H 

F1CBH 

F1D4H 

F3A2H 

F391H 

F39EH 

F49AH 

F492H 

F496H 

F531H 

F564H 

F597H 

F59DH 

F5BEH 



OPERATIONS WITH STRINGS 

ASC and LEN Subroutines 

1 . System call address: D9DDH 

2. Entry Conditions: 

a. Character string information is stored in 7A04H - 7A07H as 
previously described. 

b. YL = 60H for ASC 

= 64H for LEN 

3. Exit Conditions: 

a. The result is in 7A00H - 7A07H 

b. UH contains the error code (00H is a normal finish) if an 
error occurred. 

4. Flags: 

CHR$ Subroutine 

1. System call address: D9B1H 

2. Entry Conditions: 

a. Integers from - 255 are placed into 7A07H. 

b. 7894H = 10H 

3. Exit Conditions: 

a. If UH = then a proper exit occurred, otherwise UH 
contains the error code. 

b. 7B10H contains the ASCII code 

c. 7A04H - 7A06H contain C1H 7BH 10H 

d. If the ASCII code was 00H then 7A07H contains 00H 
otherwise, 7A07H contains 01 H. 

4. Flags: 

VAL Subroutine 

1 . System call address: D9D7H 

2. Entry Conditions: string information is in 7A00H • 7A07H. 

3. Exit Conditions: 

a. The result is in 7A00H - 7A07H 

b. UH contains the error code (00H is a normal finish) if an 
error occurred. 

4. Flags: 

STR$ Subroutine 



RIGHTS 


LEFTS 


MIDS 


<(7891H)-8 


same 


<(7891H)-16 


(7890H) + 8 


same 


(7890H) + 16 


10H 


10H 


10H 


Y 


Y 


Z 



x$ 



02H 



X$ 



7AH 



XS 



7BH 



2. Entry Conditions: 

a. numeric value to be converted is in 7A00H - 7A07H 

b. 7894H = 10H 

3. Exit conditions: 

a. The string pointer is in 7A00H - 7A07H 

b. The actual character string is stored at 7B10H and 
following. 

c. UH contains the error code (00H is a normal finish) if an 
error occurred. 

4. Flags: 

RIGHT$(X$,Y), LEFT$(X$,Y), and MID$(X$,Y,Z) 
Subroutines 

1. System call address: D9F3H 

2. Entry Conditions: 

(7890H) 

(7892H) 

(7894H) 

7A00H- 

7A07H 

(7890H)- 

(7890H) + 7 

(7890H) + 8- 

(7890H)+15 

YL 

3. Exit Conditions: 

a. The string pointer is in 7A00H - 7A07H 

b. The actual character string is stored at 7B10H and 
following. 

c. UH contains the error code (00H is a normal finish) if an 
error occurred. 

4. Flags: 

Note: (7890H) and (7891 H) cannot be overwritten or 
changed. If these are changed, the routine will not 
function properly. 

String Concatenation 

1 . System call address: D925H 

2. Entry Conditions: 

a. 7894H = 10H 

b. Information on the first character string is stored in 7A00H - 
7A07H 

c. Information of the second character string is stored in 
7A10H - 7A17H in the same format as previously 
described. 

3. Exit Conditions: 

a. Information on the new character string is placed in 7A00H 
- 7A07H. 

b. Actual concatenated string is put in 7B10H and following 
memory locations. 

c. If an error occurs. UH contains the error code. 

4. Flags: J9 



1 . System call address: D9CFH 
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A CoCo Editor and File 
Saving Utility 



Robert W. Senser 
P.O. 2486 
Cody, WY 82414 

The first program is a file editor for the Color Computer. 
This editor creates and modifies text (ASCII) type files on the 
Color Computer. It always displays a full screen of text infor- 
mation, and all of the insertions, changes, and deletions are 
done on a single command line. A special character, the 
period or any other stated character, in position one of the 
command line is used to distinguish commands to the editor 
from changes to the current line. The current line is the line 
printed right above the command line. The command line is 
prompted with a '>'. This character is replaced by a ' + ' while 
inserting lines of text. 

The following commands are available in the editor. 
Some of these commands modify the text while others work 
the relative pointer which determines the current line. 
Command Function 

.B Move current line to bottom 

.C = c Set command character to 'c' 

D and .Dnum Delete line or delete 'num' 

lines 
Exit with no save of file 
Insert after current line 
Locate 'string' 
Move current line down one 

page 
Set printing range, cols. 
1-30, 31-60, or 61-90 
.S Save file and exit 

T Move current line to top 

.W Print line number of current 

line 
.num Move current line to 'num' 

..num Move current line to 'num' 

. + num Move current line down by 

'num' 
. - num Move current line up by 

'num' 
null Exit insert or move current 

line down 1 
c=any character 
num = integer number 
string = string of characters 
nu//=null string 

This editor could be easily modified to work with cassette 
tape instead of disk by changing the file numbers used. On a 
16K machine there is a maximum of 200 lines per file. If the 
text lines take up more than about 5,000 characters the 16K 
Color Computer may run out of string space. With some 
modifications to the dimensions of arrays P and A$, and to the 
M 1 and M2 values, this editor should handle much larger files 
on the 32K machine. 

10 REM "ED" 

20 REM LINE EDITOR 

30 VERIFY ON 



.E 

.1 

. Lstring 

P 

.R1 and .R2 and .R3 



40 PCLEAR 1 

50 CLEAR 5500 

60 DIM P(200),A$(250),SL(3),SR(3) 

70 SLU)«01 

: SR(l)-30 
80 SL(2)-31 

: SR(2)-60 
90 SL(3)-61 

: SR(3)-90 
100 L-6 

D$-"." 

S-9 

B-0 

F-0 

SS-1 

110 Ml-200 

: M2-250 
120 Z$-"123456789+" 
130 I$-"Y" 
140 SP-L-3 

: L9-(L-1)*32 
150 CLS 
160 PRINT 

170 PRINT " *** ED ***" 
180 PRINT 

: PRINT 
190 INPUT "FILE NAME:";F$ 
200 IF F$«"" THEN STOP 
210 INPUT "READ THE FILE (Y/N):";A$ 
220 IF A$«"" THEN STOP 
230 IF A$«"N"THEN 

: A-0 

: GOTO 380 
240 IF A$-"Y" THEN 260 
250 CLS 

: GOTO 210 
260 OPEN "I",#1,F$ 
270 FOR 1-1 TO Ml 
280 LINE INPUT #1 ,W$ 
290 W-I-l 
300 GOSUB 1480 
310 IF EOF(l)— 1 THEN 340 
320 NEXT 
330 GOTO 1310 
340 I$-"N" 
350 CLOSE #1 
360 A-L-2 

370 REM TOP OF LOOP 
380 GOSUB 1600 
390 C$-">" 

: IF I$-"Y" THEN C$-"+" 
400 PRINT @L9,C$; 
410 LINE INPUT W$ 
420 W1$«LEFT$(W$,1) 
430 IF Wl$-D$ THEN 530 
440 IF W$<>"" THEN 470 
450 IF I$-"N" THEN 550 
460 I$-"N" 

: GOTO 380 
470 IF I$-"N" THEN 910 
480 W-A 
490 GOSUB 1480 
500 A-A+l 
510 GOTO 380 
520 REM COMMANDS 
530 I$»"N" 

540 IF LEN(W$) > 1 THEN 570 
550 A-A+l 
560 GOTO 380 

570 W$«RIGHT$(W$,LEN(W$)-1) 
580 IF W$-"D" THEN W-A 

: GOSUB 1400 

: GOTO 380 
590 IF W$="I" THEN W-A 

: I$-"Y" 

: GOTO 380 
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600 IF W$-"B" THEN A-B 

: GOTO 380 
610 IF W$-"T" THEN A-l 

: GOTO 380 
620 IF W$-"E" THEN CLS 

: STOP 
630 IF W$-"P" THEN 920 
640 IF W$-"W" THEN PRINT @L9 , " ";A 

: GOTO 400 
650 IF W$-"" THEN A-A+l 

: GOTO 380 
660 IF W$-"Rl" THEN SS-1 

: GOTO 380 
670 IF W$-"R2" THEN SS-2 

: GOTO 380 
680 IF W$-"R3" THEN SS-3 

: GOTO 380 
690 IF W$-"S" THEN 830 
700 W1$-LEFT$(W$,1) 
710 IF Wl$-"+" THEN 1000 
720 IF Wl$-"-" THEN 1050 
730 IF Wl$-D$ THEN 950 
740 IF W1$-"D" THEN 1110 
750 IF W1$-"L" THEN 1170 
760 IF W1$-"C" THEN D$=MID$(W$ ,3, 1 ) 

: GOTO 380 
770 W$-" "+W$ 
780 GOSUB 1740 
790 IF ER-1 THEN 1290 
800 A-A+N 

810 IF A>B THEN A=B 
820 GOTO 380 
830 OPEN "0",#1 ,F$ 
840 FOR 1-1 TO B 
850 W-I 

: GOSUB 1330 

: PRINT #1 ,W$ 
860 NEXT 
870 CLOSE #1 
880 CLS 

890 PRINT F$;" SAVED" 
900 STOP 
910 W-A 





: GOSUB 1370 






: A-A+l 






: GOTO 380 




920 A-A+S 




930 


F A>B THEN A* 


»B 


940 GOTO 380 




950 GOSUB 1730 




960 


F ER-1 THEN 1290 


970 A-N 




980 


F A>B THEN A« 


= B 


990 GOTO 380 




1000 


GOSUB 17 30 




1010 


IF ER-1 THEN 


N-l 


1020 


A-A+N 




1030 


IF A>B THEN A-B 


1040 


GOTO 380 




1050 


GOSUB 1730 




1060 


IF ER-1 THEN 


N-l 


1070 


A- A-N 




1080 


IF A<1 THEN A-l 


1090 


GOTO 380 




1100 


REM GROUP DELETE 


1110 


W-A 




1120 


GOSUB 1730 




1130 


FOR 1-1 TO N 




1140 


GOSUB 1400 




1150 


NEXT 




1160 


GOTO 380 




1170 


M$-MID$(W$,2 


LEN(W$)-1) 


1180 


A9-A+1 




1190 


IF A9>B THEN 


1290 


1200 


FOR IL-A9 TO 


B 


1210 


W-IL 





1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 

1510 
1520 



1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 

1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 

1780 
1790 
1800 



GOSUB 1330 

L8-INSTR(W$,M$) 

IF L8>0 THEN 1270 

NEXT 

GOTO 1290 

A-W 

GOTO 380 

PRINT §1, "ERROR" 

GOTO 390 

PRINT @1 ."OVERFLOW" 

GOTO 380 

REM GET 

IF W>B OR W<1 THEN W$-"": RETURN 

W$=A$(P(W)) 

RETURN 

REM REPLACE 

A$(P(W))-W$ 

RETURN 

REM DELETE 

A$(P(W))-"" 

B-B-l 

IF W>B GOTO 1470 

FOR ID=W TO B 

P(ID)-P(ID+1) 

NEXT 

RETURN 

REM INSERT AFTER 

B-B+l 

IF B>M1 THEN B-B-l 

: GOTO 1310 

F-F+l 

IF F>M2 THEN B-B-l 

: F-F-l 

: GOTO 1310 

Wl-W+1 

FOR IA-B TO Wl + 1 STEP -1 

P(IA)-P(IA-1) 

NEXT 

P(W1)-F 

A$(F)-W$ 

RETURN 

REM SCREEN 

CLS 

PRINT " ";Z$;Z$;Z$ 

IF A>B THEN A-B 

ST-A-SP 

FOR IS-2 TO 15 

IF IS-L THEN PRINT " " 

: GOTO 1710 

W-ST 

GOSUB 1330 

PRINT " ";MID$(W$,SL(SS),SR(SSS)) 

ST-ST+1 

NEXT 

RETURN 

REM NUMBER 

ER-0 

FOR IN-2 TC LiN(W$) 

N$-MID$(W$,IN,1) 

IF N$<"0" OR N$>"9" THEN ER-1 

: GOTO 1800 

NEXT 

N=VAL(MID$(W$,2,LEN(W$)-1)) 

RETURN 



The second program for the CoCo is a utility program for 
copying the contents of diskettes to and from audio tape in 
binary format. 

10 REM 'FSAVE' PROGRAM 

20 REM SAVE DISK TO TAPE OR 

30 REM RESTORE TAPE TO DISK 

40 REM STOPS ON ANY DISK ERROR 

50 CLEAR 20.&H2CFF 
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FOR SAVE" 
FOR RESTORE" 
TO EXIT" 



OR 'N')";A$ 



60 W=&H2D00 
: W1=0 
: W2=0 
80 GOSUB 510 
90 CLS 
95 MOTORON 

100 PRINT @132,"PUSH 'ENTER'" 
110 PRINT (?164, "AFTER TAPE" 
120 PRINT @ 196, "REWOUND"; 
130 INPUT A$ 
140 MOTOROFF 
150 CLS 

160 PRINT (ai00, "TYPE ! S' 
170 PRINT @132, "TYPE 'R' 
130 PRINT (§164, "TYPE 'X' 
190 INPUT A$ 
200 IF A$-"S" THEN 240 
210 IF A$-"R" THEN 390 
220 IF A$="X" THEN STOP 
230 GO TO 160 
240 REM *** SAVE *** 
250 INPUT"DO A SAVE ('Y 
260 IF A$»"N" THEN 150 

270 INPUT "PUSH RECORD THEN ' ENTER'" ;A$ 
280 MOTOR ON 
290 FOR 1=1 TO 5000 

: NEXT I 
300 MOTOR OFF 

FOR T«0 TO 34 

FOR S=l TO 18 
330 W9=W+(S-1)*256 
340 GOSUB 610 
350 NEXT S 
355 POKE &HFF40.0 
360 CSAVEM "SEC" .W.W+4607 ,W 
370 NEXT T 
380 GOTO 90 

REM *** RESTORE *** 

INPUT"DO A RESTORE ('Y' OR 'N')";A$ 

IF A$="N" GOTO 150 

INPUT"PUSH PLAY THEN ' ENTER '";A$ 
430 FOR T=0 TO 34 
440 CLOADM 
450 FOR S=l TO 18 
460 W9=W+(S-1 )*256 
470 GOSUB 740 
480 NEXT S 
485 POKE &HFF40.0 
490 NEXT T 
500 GO TO 90 

REM *** SETUP *** 



310 
320 



390 
400 
410 
420 



51i 



14) 

JS) 
!6) 
)7) 



520 A)=PEEK(&HC( 

530 A2=PEEK(&HC( 

540 A3=PEEK(&HC{ 

550 A4=PEEK(&HCt 

560 D=256*A1+A2 

570 P=256*A3+A4 

580 POKE P+l ,0 

590 DEFUSR1=D 

600 RETURN 

610 REM *** GET SECTOR *** 

620 POKE P,2 

630 POKE P+2.T 

640 POKE P+3.S 

650 Wl=INT(W9/256) 

660 POKE P+4.W1 

670 POKE P+5.W2 

680 Z=USR1(0) 

690 Z=PEEK(P+6) 

REM POKE &HFF40 ,0 
IF Z=0 THEN RETURN 

720 PRINT "GET ERROR", T,S,Z 

7 30 STOP 

740 REM *** PUT SECTOR *** 

750 POKE P,3 

760 POKE P+2.T 



700 
710 



770 POKE P+3.S 

780 Wl»INT(W9/256) 

790 POKE P+4.W1 

800 POKE P+5.W2 

810 Z-USRK0) 

820 Z-PEEK(P+6) 

830 REM POKE 8tHFF40,0 

840 IF Z=0 THEN RETURN 

850 PRINT "PUT ERROR", T.S.Z 

860 STOP 



Scroll Revisited 

Michael McNeil 
67 Comfort Road 
Ithaca, NY 14850 

Editor's Note: Scroll was run in the December 1 983 issue of 
Microcomputer News with critical omissions. To do justice to Mr. 
McNeil's efforts and for the benefit of our readers, we are re- 
running Scroll in its entirety in this issue. 

Notice there are two BASIC program listings, Basic and 
Demo, and one machine language program listing, Scroll. 
The program Basic POKEs the machine language routine 
Scroll into memory where it can be accessed by Demo. The 
Demo program is simply the BASIC driver for Scroll. When 
Scroll is accessed by Demo BASIC, the graphics screen 
shifts up 32 bytes. I have found this routine very helpful in 
writing BASIC games. 

These programs were written on a 1 6K Color Computer. 
However, they should work for any Color Computer with 
Extended BASIC. 

THE PROGRAM BASIC 



31, A8, 20, A6, A0, A7, 
31, A8, E0, 86, 00, A7, 
39 



10 CLEAR 500, &H3F00 

20 DATA 9E, BA, 10, 9E, BA, 

80, 10, 9C, B7, 26, F7, 

A0, 10, 9C, B7, 26, F7 
30 FOR L-&H3F00 TO &H3F1D 
40 READ A$ 

50 POKE L, VAL ("&H"*A$) 
60 NEXT L 

70 DEF USR 1-&H3F00 
80 PMODE 2 , 1 

: SCREEN 1,1 

: PCLS 
90 CIRCLE (128, 96), 96 
100 FOR L*l TO 50 
110 Y-USRK0) 
120 NEXT L 



SCROLL— THE MACHINE LANGUAGE LISTING 



3F00 



ORG $3F00 

*DEFINE LOCATIONS 





00B7 


00110 


BOTTOM 


EQU 


183 




00BA 


00120 


TOP 


EQU 


186 


3F00 9E 


BA 


00130 


START 


LDX 


TOP 


3F02 109E 


BA 


00140 




LDY 


TOP 


3F05 31 


A8 20 


00150 




LEAY 


32, Y 


3F08 A6 


A0 


00160 


LOOP 


LDA 


,Y+ 


3F0A A7 


80 


00170 




STA 


,x+ 


3F0C 109C 


B7 


00180 




CMPY 


BOTTOM 


3F0F 26 


F7 


00190 




BNE 


LOOP 


3F11 31 


A8 E0 


00200 


BLACK 


LEAY 


-32, Y 


3F14 86 


00, 


00210 


LOOP 2 


LDA 


#0 


3F16 A7 


AC 


00220 




STA 


,Y + 


3F18 109C 


B7 


00230 




CMPY 


BOTTOM 



50 
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3F1B 26 


F7 


00240 


BNE 


3F1D 39 




00250 DONE 


RTS 




0000 


00260 


END 


00000 TOTAL ERRORS 






BLACK 


3F11 






BOTTOM 


00B7 






DONE 


3F1D 






LOOP 


3F08 






LOOP 2 


3F1A 






START 


3F00 






TOP 


00BA 







LOOP 2 



DEMO 

After running Basic which POKEs Scroll into memory, 
run Demo to see a demonstration of how Scroll works. 

10 'SCROLL DEMO 

20 CLEAR 500, &H3F00 

30 PRINT "HAVE YOU CLOADED 'SCROLL 1 YET?" 

40 INPUT "<Y>ES OR <N>";YN$ 

50 IF YN$ <> "Y" THEN GOSUB 1000 

60 DEF USR1=&H3F00 

70 FOR M-0 TO 4 

80 PMODE M, 1 

: PCLS 

: SCREEN 1,1 
90 CIRCLE (128, 96), 96 
100 FOR N=l TO 96 

: Y=USR1(0) 

: NEXT N 
110 NEXT M 
120 GOTO 70 

1000 PRINT "REWIND TAPE" 
1010 MOTOR ON 
1020 INPUT "<ENTER> WHEN THE TAPE IS AT THE 

BEGINNING", YN$ 
1030 CLOADM "SCROLL" 
1040 RETURN 



J3 



Using Graphics Pages 
and Disk Buffers 



Thomas Rokicki 

Box 258 

College Station, TX 77841 



I have noticed a small peculiarity when I use graphics 
pages and disk buffers concurrently in the TRS-80 Color 
Computer. At times, the top of the graphics pages (especially 
in the low resolution modes) show garbage. 

For instance, try this short program. 

10 FILES 1, 100 

PMODE , 1 

PCLS 

SCREEN 1 ,1 

LINE(0,0)-(255,191),PSET 

LINE(255,0)-(0,191),PSET 
20 GOTO 20 

When you run the program, the screen looks like this. I 
therefore delved into the depths of the Color Computer's 
manuals. At the end of the disk manual, there is a memory 
map which states that the graphics pages must start at a 256 
byte page boundary. 

Having worked with the 6883 SAM and 6847 VDG, I 
realized that the Color Computer could only display pages 



i 




■ v:-f-;v.-;'.. ..--v.. ■ 

■,»>. : ■.,.• ':&■....'■■■ . > 







starting at 512 byte pages. Therefore, at times, the Color 
Computer would show junk on the top of the screen. 

Doing some experimenting, I soon came up with Table 1 , 
which will solve the problem. Whenever the FILES statement 
is used, CLEAR the appropriate amount of string space. To 
use Table 1 , take the string space number given after the 
number of files. If it is not big enough for the file string space 
you need, add 512. If it is still not big enough, keep adding 
512 until it is. 

Take, for instance, a program with four files requiring at 
least 2000 bytes of file space. The number given for four files 
is249. Add 51 2 to 249 and you get 761 . Not big enough. Add 
512 again for 1273. Keep adding: 1273 + 512 = 1785, 
1785 + 512 = 2297. At last, big enough. 

Now just start the program with the statement: FILES 
4,2297 and your graphics will work, and you will not be 
wasting memory. 

This example takes no more memory than the statement 
FILES 4,2042 (try it) and gives one a bit more room. It also 
insures that the graphics pages work correctly. 

Table 1 . 



Number of 
Files 


String 
Space 





349 


1 


68 


2 


299 


3 


18 


4 


249 


5 


480 


6 


199 


7 


430 


8 


149 


9 


380 


10 


99 


11 


330 


12 


49 


13 


280 


14 


511 


15 


230 
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"13 GHOSTS" 

'-.. 1983 Bryan Eggers and Larry Payne 



by Bryan Eggers 
Software Affair 



V 




The majority of games sold by Radio Shack are for the 
Color Computer. The high resolution screen and color graph- 
ics make it easy to draw pictures. However, it is also possible 
to create a great arcade game on the Model III or 4. 1 always 
felt that if someone took full advantage of certain characteris- 
tics of these computers, that many interesting visual effects 
could be obtained, particularly in the area of animation. 

The concept of "13 GHOSTS'" ", as well as the graphics 
and animation sequences, took me a few years to develop 
because I could only work on it in my spare time. I eventually 
admitted to myself that I didn't have enough technical knowl- 
edge to assemble my game scenario and finished graphics 
into a complete machine-language game. I needed some 
help, actually, a LOT of help! I was looking for someone who 
not only could put the game together in assembly language 
and make it play according to the rules, but who could also 
solve some critical problems: 

(1) Since the game consisted of virtually non-stop ani- 
mation, it was critical that we eliminate the screen "flicker" 
that plagued all other animated games. 

(2) Every ghost on the screen required independent 
movement logic, including animation capability, direction 
and speed variation. Each ghost needed to be in its own 
visual "plane." That is, one ghost could move behind another 
ghost for a multi-dimensional effect, and yet all the ghosts 
were supposed to appear "in front of" the background. This 
would require a special black "border" around each ghost 
for contrast. 

(3) The action could not stop for even a split-second or 
the animation effect would be ruined. I needed smooth con- 
tinuous action, even with multiple animated explosions, 
ghosts flying in and out of the area, spiders going up and 
down, score updates, background moves, and sound effects 
occurring simultaneously. 

(4) The target sight, the actual "shot" itself, and subse- 
quent explosions each required animation and independent 
control. Two different types of explosions were needed, and 
one had to be smart enough to change each of its particles 
from "white" to "black" for contrast against the background. 

(5) I wanted spectacular music and sound effects in 
three-part harmony played through the cassette port. My 
friend Jon Bokelman (author of "Orchestra-90") gave me 




' IDEFO 


i 


1 1 1 


|....| 



permission to use one of his synthesizer routines within the 
game. I went ahead and wrote all the music and sound 
effects, but I still needed to produce the sound effects simulta- 
neously with the animation. 

(6) The background graphics and animation sequences 
took up so much memory that some sort of compiler was 
needed to reduce the data to manageable size. 

To make a long story short. Larry Payne is the co-author 
of "13 GHOSTS" and the talented programmer who solved 
all the problems that were driving me crazy. He also added 
many special effects and ideas of his own. Without him. this 
game would still be a pile of graphic worksheets and notes 
collecting dust on my shelf. I'm certainly happy that we put it 
together and licensed it to Radio Shack instead! 

Since the instructions that accompany the game are 
rather brief. I thought you might like to read a complete game 
scenario and detailed instructions. I'll also give you a couple 
of tips on how to improve your score. 

The illustrations show some of the graphics used in the 
game, but obviously the animation can't be shown. You'd 
have to see this game in action to really appreciate it! 

GAME SCENARIO OF "13 GHOSTS" 

Out West, you are known as the Great Venicksia— a 
legendary conjuror, sorcerer, and wizar , capable of amaz- 
ing feats of magic. 

The legend of your ability to rid a town of undesirable evil 
spirits is widely known. Armed only with a special weapon of 
your own design, a "Ghost- Blaster," you are often sum- 
moned to local towns to exterminate unwanted GHOSTS that 
have been haunting the streets. 

You arrive by train at the local DEPOT. Once you leave 
the depot, there is no turning back. You plan to walk through 
town, all the way to the HAUNTED HOUSE, then back again, 
shooting ghosts as you go. Unlike the other towns, however, 
you find so many ghosts here that you will be lucky to make it 
back to the train alive! 

You are in trouble! This is a real GHOST TOWN and there 
are 13 GHOSTS trying to scare you to death! From your 
previous battles with ghosts, you know that no matter how 
hideous and grotesque a ghost is. it can't actually harm you 
unless you let it frighten you to death, so try to stay calm! 
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You keep shooting ghosts, knowing that for each one 
you let escape, a more dangerous ghost will take its place! 
And you know that lurking somewhere in the darkness is the 
SKELETON. Once the last four (most dangerous) ghosts 
appear, any ghost you let escape will wake the SKELETON, 
which means sudden DEATH! The SKELETON will run out 
and kill you! 

There is no defense against a SKELETON. You must 
try to keep shooting ghosts, because even though they re- 
materialize almost immediately after being "destroyed," at 
least you'll keep them from escaping and waking up more 
dangerous ghosts and, ultimately, the SKELETON. 

Each time you shoot a ghost, you move a few steps 
further in your journey. The more dangerous the ghost, the 
more ground you gain by destroying it. 

Even if you return to the DEPOT safely, you are com- 
pelled to take the perilous journey again and again. Each trip 
becomes more dangerous. You only get a brief rest each time 
you reach the HAUNTED HOUSE or the DEPOT. 

One spirit, known as "The Laughing Ghost" has a very 
dangerous habit. He pops up in various places and laughs at 
you. If you don't shoot him before he disappears, he'll also 
wake up a more dangerous ghost! 

Watch for SPIDERS! They can help you! GHOSTS do not 
like spiders. When SPIDERS appear, ghosts start avoiding 
the area. If you actually shoot a spider, the most dangerous 
ghost currently chasing you will be scared away. 

PLAYING THE GAME 

SYSTEM REQUIRED: 48K Disk Model III/4 

Connect the cassette port plug to a small amplifier! 

This is important, since 13 GHOSTS plays AMAZING 
music and sound effects in 3-PART HARMONY through the 
cassette port! Some of the effects will help you during 
the game. 

Insert the "13 GHOSTS" disk in drive and press 
iRESET). 

Type the name "GHOSTS" at TRSDOS READY. After a 

brief graphic and musical introduction, press any key (except 

clear " )) to start the game. If no keys are pressed, the 
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HIGH SCORES will be displayed, and a few seconds later, a 
self-playing demonstration game will begin. Hit any key to 
stop the demonstration game and start a real game. 

The "Ghost-Blaster" is represented by a blinking cursor. 
The ARROW KEYS may be used to move the cursor any- 
where on the screen. The CSP ace] bar is used to shoot 
your "Ghost- Blaster." Up to THREE SHOTS may be in the air 
at one time! Note that each shot takes a moment to reach its 
target, just like any other conventional weapon, so it may be 
necessary to shoot slightly in front of your target to score a hit. 
It takes a direct hit to dematenalize a ghost. A hit on the edge 
of a ghost may be ineffective. 

Use your "Ghost- Blaster" to shoot the ghosts before 
they escape from the top OR bottom of the screen. In the 
beginning, the ghosts will try to frighten you by appearing at 
the bottom of the screen and escaping at the top of the 
screen. Once they discover that you can't be scared so 
easily, they ' II go off the top of the screen, then come back and 
try to scare you again on the way down! This gives you a 
second chance at them, since now they can only escape by 
leaving the screen at the bottom. Shoot them before they 
escape! Each ghost that escapes will wake up a more dan- 
gerous ghost and eventually, wake up the SKELETON! 

Remember, you must continuously blast and dematerial- 
ize the ghosts to keep them from escaping! Each ghost that 
escapes wakes up a more dangerous ghost. When there are 
no more ghosts left to wake up, the next ghost that escapes 
wakes up the SKELETON! 

One shot can dematenalize only one ghost. 




FUNCTION OF CONTROL KEYS 

KEY FUNCTION 



O0CTJCD 

SPACE 



f C L E A R 




BREAK 




CLEAR 



p 



Move "Ghost Blaster" in desired direction. 
Shoot "Ghost Blaster." You can have three 
shots in the air at once. Holding down the 
spa CT bar auto-fires, but not as fast as 
manual firing. 

Also, you can't move your "Ghost Blaster" as 
fast while you're auto-firing! 
Restart the game. Effective any time 
except while music is playing. 
Pressing this key while the " 1 3 GHOSTS" title 
page is on the screen will display the HIGH 
SCORE screen, except while music is play- 
ing. If no keys are pressed then the HIGH 
SCORES appear automatically after a few 
seconds, followed by an auto-play demon- 
stration mode. 
Pause. Effective anytime during game ex- 
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cept while music is playing. Press any key to 

continue. 
NO T E: All keys are disabled while music is playing. 
This game requires a system RESET to return 
to TRSDOS. 

SCORING 

Each TRIP between the DEPOT and the HOUSE (either 
direction) is scored as a LEVEL. The current level of play is 
continuously displayed on the bottom line of the screen. 

In LEVEL 1 , each ghost that you shoot results in a score 
equal to ten times the ghost's number. For example, shooting 
Ghost 4 would result in 40 points. In LEVEL 2, and every 
subsequent LEVEL, each ghost is worth its number times 
100, as shown in this chart: 

LEVEL 1 LEVEL 2 (and higher) 

SCORE SCORE 



Ghost 1 


10 




100 


Ghost 2 


20 




200 


Ghost 3 


30 




300 


Ghost 4 


40 




400 


Ghost 5 


50 




500 


Ghost 6 


60 




600 


Ghost 7 


70 




700 


Ghost 8 


80 




800 


Ghost 9 


90 




900 


Ghost 10 


100 




1000 


Ghost 1 1 


110 




1100 


Ghost 12 


120 




1200 


Spider 


100 




1000 


Laughing 


500 




5000 


Ghost 








The LAUGHING GHOST and 


SPIDER are not num- 


bered ghosts. 


Shooting these characters results in the special 


pcnts as shown and also 


affects the play of the game in 


certain ways. 









ADDITIONAL FEATURES 

Each ROUND TRIP (depot-to-house and back) has a 
different name, visual situation and difficulty level. These 
represent journeys at various times of day and under special 
conditions. 

The name of the current situation appears at the bottom 
center of the screen during play. For example, the first round 
trip is called 'THE DEAD OF NIGHT." This action obviously 
takes place at night. You are in this situation through 
LEVELS 1 and 2. (The situation names are not displayed 
during the auto-play demonstration mode.) 

The second ROUND TRIP is called 
"GOOD MOURNING" and takes place during the daylight 
hours. This situation occurs in LEVELS 3 and 4. 

Subsequent trips, situations, visual effects and difficulty 
levels will be left for you to discover! If you survive all of the first 
8 LEVELS (4 round-trips), you will eventually return to the 
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original DEPOT scene and get the opportunity to do it all 
again THREE MORE TIMES (24 more LEVELS!). 

You will need an exceptional amount of skill (and luck) to 
make it through these additional LEVELS, since the ghosts 
get smarter and use completely different flight patterns after 
every 8 LEVELS! The spiders move faster, too. That makes 
every one of the 32 LEVELS different! 

ADDITIONAL DISPLAY INFORMATION 

The most critical information on the display is the 
GHOST COUNTER. This number represents the HIGHEST 
NUMBERED (most dangerous) GHOST currently active. 
Each time you let a ghost escape, that ghost wakes up a 
higher-numbered ghost to take its place, 

But, if there are no more ghosts to wake up, the next 
ghost that escapes wakes up the SKELETON and he kills 
you! The skeleton cannot be defeated! The game is over. 

Ghost 1 Ghost 2 Ghost 3 Ghost 4 




If ghost #1 2 becomes active, the entire display line starts 
flashing. This is a WARNING indicating that there are no more 
sleeping ghosts, and the next ghost that you let escape will 
wake the SKELETON!! 

Shooting a SPIDER scares away the highest numbered 
active ghost! You can verify this by watching your 
GHOST COUNTER. 
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You must shoot the LAUGHING GHOST before it stops 
laughing and disappears! It will wake up a more dangerous 
ghost if you let it escape (disappear). But, if you shoot some 
other ghosts first, causing the LAUGHING GHOST to be 
moved off the side of the screen before it can disappear, it 
won't wake up another ghost. It will be back very soon to try 
again, though! 




As long as you continue to blast the ghosts, they will be 
unable to leave the area to warn the others. They'll just keep 
rematerializing and trying to escape. Each time you shoot a 
ghost you move farther along in your trip. 

When you finally reach the end of a trip, the 
GHOST COUNTER is reset and you get a short rest accom- 
panied by a musical interlude. When the music finishes play- 
ing the ghosts appear again and you start traveling in the 
OPPOSITE direction. 

Every trip (level) STARTS with ghosts 1 , 2, 3, and 4. At the 
end of the game your final score is displayed on the left side of 
the skull. The level number you achieved is displayed on the 
right side, along with the final ghost counter status (1 3). After 
the skull laughs, and if you have a TOP TEN score, you'll see 
a "GREAT SCORE" message and you'll be given the oppor- 
tunity to enter your name. Your score will be merged into the 
TOP TEN SCORES in the appropriate position. 

If the skull laughs and you do not immediately see a 
"GREAT SCORE" message, you'll know that your score 
wasn't high enough to be in the TOP TEN. You have two 
options at this point. You can press any key to immediately 
start a new game or, if you wait a few seconds, the program 
will automatically display the current TOP TEN 
HIGH SCORES, then restart the game. In either case, you'll 
always get to hear the "13 GHOSTS" theme music that 
introduces each new game. 

BONUS TRIP 

If you reach the end of your trip, either to the DEPOT or 
the HOUSE, with the GHOST COUNTER on 12, you get a 
BONUS TRIP! 

You'll hear a special Bonus Tune, then you'll ZOOM all 
the way to the other end of the town! During this BONUS TRIP 
you will receive a bonus score of TWICE what would normally 
be possible if you had played the trip! And, you'll move so fast 
that the ghosts won't have time to wake up! 

It's very dangerous to try for a BONUS TRIP because 
when the GHOST COUNTER is on 1 2, you will LOSE if you let 
just one more ghost escape. Be careful! 

ADVANCED PLAYER STRATEGY 

Once you learn to shoot the ghosts easily, you can speed 
things up in the first few levels by letting a few ghosts escape. 



Shooting the high-numbered ghosts will advance you to the 
end of the trip much faster. The higher the number of the 
ghost you shoot, the further you advance on your trip. 

Obviously, there is a big risk involved in this, since you 
now have fewer ghosts to lose before the SKELETON makes 
his appearance. You'll have to be very careful not to miss any 
ghosts. Keep an eye on the GHOST COUNTER! 

You can also let some ghosts escape to get 
BONUS TRIPS. You get a BONUS TRIP and extra points if 
you arrive at the DEPOT or HOUSE with the 
GHOST COUNTER on 12. Very dangerous, though! Always 
try to shoot SPIDERS! As we mentioned earlier, ghosts are 
afraid of spiders. This can create a problem for you because if 
some ghosts escape, the new ghosts probably won't immedi- 
ately enter the area because of the spiders. The 
GHOST COUNTER can't detect these lurking ghosts, so 
when the spiders move back up to their web, you might 
suddenly have a bunch of unexpected ghosts show up! 
Maybe even enough to wake up the SKELETON! 

Try to discover what makes the LAUGHING GHOST and 
SPIDER appear! 




HIGH SCORES 

13 GHOSTS saves the HIGHEST TEN SCORES on your 
disk. These can be displayed when the " 1 3 GHOSTS" title is 
on the screen by pressing the reTTATT) key (wait until the 
music stops). 

If your current score ranks within the TOP TEN scores, 
and after some appropriate music, you will be asked to input 
your name for the records. Carefully type in your name, then 
press (enter :. If you make a mistake, pressing :clear ' 
or a CrD will clear the complete line and allow you to start 
again. 

If you do not wish to add your score to the 
HIGH SCORES screen, simply press fBFTE AiO to start a 
new game. 

The HIGH SCORES are stored on your disk in a file 
named GHOSTS/HIS. You can kill this file if you want to start a 
new set of HIGH SCORES. 

If you complete all 32 LEVELS of the game, an 
asterisk (*) will appear next to your score. This proves that 
you BEAT the game! Immediately after beating the game you 
will be rewarded with a special visual/musical display. Very 
few people will ever get to this level. We consider it to be quite 
an accomplishment! 

If you do beat the game, you might want to take a picture 
of this special screen image to prove to your friends that you 
actually BEAT "13 GHOSTS," otherwise they will probably 
never believe you! This final display remains on the screen 
until any key is pressed. 

"13 GHOSTS" is a Trademark of Software Affair, Ltd. 
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CMTM 524B Cvuur Rd NvY MMat Haa 3826 W 



CMTBHMUE 20S MMrM»#»Can»»vfc Ftl 
CM3MMT1 9725 Mortgomtry 16-18 Ccn*nton Way (on 

CLEVHAND 419 EucM »D«rtwnt. 77581 Eudd Avt 
COUMMUS 862 S Harmon Grtf Eastern SC. The Paho Shop 

f> . 4661 Kan Ft) . 400 N Ht» 9 
DAYTON Northwest Pit* "3279 Wtst StMntMr 
aVHM 786 Mrhvay BM 

FMHPBJ) 7255 Ota Hwy (V. M Norf, d 1275) 
MRTH OLMSTED Great Nortum SC 
PARMA 7551 W Ftdgewood ft 
TOLBM 5844 W CenM Avt BrmmMcw Pin. 1724 S 

YOUM IT OWN Ltwn Square PUa 2543 BMrtrtAve 



OKLAHOMA CITY 4732 SE 2901 9 Somgrj* SC 4488 NW 

50* 1101 SW59T SI 
TULSA 7218 i. 7220 E 419 9 

OREGON 
EUGENE 390 Coburo Ft) 
PORTLAND 7463 SW Bartu BM . 9131 SE Powel 3rd and 

Washington 9s (Orjwniowrt 
SALEM Salem PUa 403 Centr 



ALLBITOMi OMPNBSC. CadtrCMBMUS22 
BALA CYNWYO 67 E Ctv Lnt A«t, 
EAfT0H25tia Shcopng Canter 

EU0RS PAM Eire ^rk Square. 8080 Ok) York fid 
EMI 5756 Peach 9 

I Lrion Otpotn Mil, Lnon Oeoosl Ft). #17 
I Park Cty Pta. US 30 
828 Wm Ptno Hwy 
tAnortSv* 308 
FMLAHELPHM 7542 Cattx Avt 1007 Chtstw 9 1801 
Uanei a. M Pirn Cantor 



YORK VaM Coirty Shorjaino Canter 

PITTSBURGH 5775 FJaptsl ftd . H0s Plaa 303 SntftWd 9 

4643 Bum BM . 4768 McKrigrl Ft) 
SCRMTM 206 Mtadow Avt 
MLKES BARK. 23 W MvMt 9 
WTTJMBSMB BwWtre MM WM. 1101 WoodM Ad 



HATO REV 243 FianMn D. rtxBtvMI Am 
BMOJEMANO 
E PROMOENCE 850 VVatorman Ave 
PHOV0JENCE 177 Lnon a 

SOUTH CAROUNA 
COLUMHA Old Sears BUg 1001 Hanton 9 
OHEEMfTLLE N HHs SC 
N CHAflLESTON 5900 rtiK Aw 

SOUTH DAKOTA 
M0UX FALLS 1700 S Mrroota m 25* 



CmnMOOBA 636 ftorfnto UM 

JOHNSON CTTY F**rtss Centor 

OMONLLE Ctrtor BM SC 9123 Fjtntove Park ft 



iWiy, 1997 Ltton Ave 
i Ptt). flMrrjtos Pha 



TEXAS 

AMAM10 WMngkin Sq SC. 1619 S Ktrtucky 
ARJJN6T0N 2500 E Randal Ml Suto 113 
AUSTWB764E Research BM SoktMoodMM 1501 flen 

NtM 
SROMBMLU 1639 Pret Ft) Hwy. 77) 
BEAUMONT 5330 EastB Frwy 
COUfBESTATm 24M TctB Ave . StMTi 



100 7330 W Northwest 



1711 S Staple St 
Pliwv^ulBl 

Hwy 1517 Man 8. 2MB Roy*/ Ln 



BALLAS 15340 Oaks I 



EL PAM 95tS Gatoway WM Km Plaa Shoopng Can*, 3100 

; l.v at 
n. WORTH 231 One Tandy Center 2801 Ala Mere 
BALVEST0N 5924 Broadway 
hWMJNOEN 1514 S. Hwy 77. Sunahm Skip 
HUMBU 19300 B Hwy 59 Lai FM 1960) 
KOMTOH 211C-FM «0; KM) CM Fwy ; 5000 Ngrft Fv* 

6813 SW Fwy 809 OaAts 9 . HoMnd Square Cert, 10820 

EM Fn«t«a CMrtaon Fowl Ptta. ChjrBptn Forest Or 

andFM 1900 WM Kn8 Gtamr 3278 SeMi Loop West 

So Man al 610) 
HURtT Nortctai Ual 
ITWM2011 Wast Anxn Fwy 

— T10?EMCMonRd 
1388 341.9 
1 1613 "A Easi ah areet 

ISo SC 202 W. Carnp&M Ft). 320 S 

CajWNEar 
SM ANTOMO 8018 Wast Ave 4249 Ctnttrgale. RMrfiend 

Parting Garage. 211 W Market 9 (Downtown) 
MOtTfA FALLS1720-A 9ti a 

UTAH 
OBOEN K4*m Stappng Oner 3672 Wal Ave 
0REM Gran) ON* Pha. 384 EM t 1300 SoUh 
MURRAY 6061 S Stale Ave 
SALT LAKE CTTY 301 Souti Stale 9 

ALKANORM 3475 Kng Si a Ouaker Ln 

ARLM0TON Crystal City. 2301 So JMhrson Dm Hwy 

FMRFAX WBtta# Cento. 11027 Let Hwy 

LVNCHBUM MTs Pha. nhRfs Rd 

NEWPORT NEWS rtowmarM Souti Shoo C* 

NORFOLK 5731 Pop* Hal ft Wtotk Comtr 122 E LAW Cn* 

Ft) 
RTCHMMD VWtow Lawn SC 1617 WBow Lawn ft 7728 
MrJottar, Tumohe 

, 3661 FrarMi Ft) S W 
alRt 29 
WASHINGTON 
BfUfVUE Crassroads MM Norn East 8th » 156 9. 
11111 ComwalA« Su* B4C 
. WRY 33505 Paofc Hwy Souti 
0LYMPM 106 N VYfcon 
SEATTLE 18405 Aurora Avt H 1521 3rd Ave 5O30 

Way NE 
SPMAME 770? N ftrtaon. E 12412 Sprapue 
TACOMA 7080 i Spraoue 
TURMU 15425 SMfat S 
YAKMA1111N Wa 

WEST VIRGINIA 
DURBAR, Ort* Wage Shop Ctr 
HUNTM2T0N 2701 "A Sir Avt 



MFrarvknBWg. 3561 F 
IYN 1911 N Ft Myer ft 



APPLETON 2310 WM CoMoa Avt 
MADMON 57 WM TowntMM 
MBJIMUKH 6450 N m 9 729 N 
WEST ALUS 7717 Souti lOBfi 9 



ItXwrlowni 



